Enforce a single prefix type constraint on parameters.

rakudo · Apr 9, 2009 · 9854f25 · 9854f25
1 parent b512bdc
commit 9854f25
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -2178,6 +2178,9 @@ method variable($/, $key) {
         if $<sigil> eq '&' {
             my $sym := outer_symbol($varname);
             $var.scope( ($sym && $sym<scope>) || 'package');
+            if $var.scope() eq 'package' {
+                $var.viviself(PAST::Op.new( :pasttype('call'), :name('undef') ));
+            }
         }
 
         # The ! twigil always implies attribute scope.