Fix {:a(1) :b(2)} dieing due to missing value arg to Pair.new

rakudo · Sep 19, 2015 · 5256ed6 · 5256ed6
1 parent 86536d2
commit 5256ed6
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -5408,8 +5408,14 @@ Compilation unit '$file' contained the following violations:
                             hunt_loose_adverbs_in_arglist($EXPR, @args);
                         }
                         for @args {
-                            $_[2].named('value');
-                            $past.push($_);
+                            $_[2] := QAST::Want.new(|$_[2].list);
+                            $past.push(
+                                QAST::Op.new(
+                                    :op('callmethod'), :name('new'), :returns($*W.find_symbol(['Pair'])),
+                                    QAST::Var.new( :name('Pair'), :scope('lexical') ),
+                                    $_[1], $_[2]
+                                )
+                            );
                         }
                     }
                 }