Fix bug with has ($!a, $!b) style decls.

rakudo · Jul 9, 2011 · aeb6b08 · aeb6b08
1 parent 1762378
commit aeb6b08
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -955,8 +955,11 @@ class Perl6::Actions is HLL::Actions {
             for @params {
                 if $_<variable_name> {
                     my $past := PAST::Var.new( :name($_<variable_name>) );
-                    $list.push(declare_variable($/, $past, $_<sigil>,
-                        $_<twigil>, $_<desigilname>, []));
+                    $past := declare_variable($/, $past, $_<sigil>, $_<twigil>,
+                        $_<desigilname>, []);
+                    unless $past.isa(PAST::Op) && $past.pasttype eq 'null' {
+                        $list.push($past);
+                    }
                 }
                 else {
                     $list.push($*ST.build_container_past(