Implement |%args for interpolating a hash into named arguments to a s…

…ub call.
rakudo · Apr 19, 2009 · 0dfcf49 · 0dfcf49
1 parent 80f0d32
commit 0dfcf49
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -2748,6 +2748,9 @@ method EXPR($/, $key) {
         # Need to make it flatten the argument.
         my $past := $( $/[0] );
         $past.flat(1);
+        if $past<sigil> eq '%' {
+            $past.named(1);
+        }
         make $past;
     }
     elsif ~$type eq 'infix://=' || ~$type eq 'infix:||=' || ~$type eq 'infix:&&=' {