Fix use Foo :whatever<1> losing the adverb's value

rakudo · Sep 19, 2015 · de907e5 · de907e5
1 parent 4023a33
commit de907e5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -5198,7 +5198,9 @@ Compilation unit '$file' contained the following violations:
                 if nqp::istype($_, QAST::Op) && istype($_.returns, $Pair) {
                     my $name := compile_time_value_str($_[1], 'LHS of pair', $/);
                     %named_counts{$name} := +%named_counts{$name} + 1;
-                    $_[2].named($name);
+                    unless $*IN_DECL eq 'use' {
+                        $_[2].named($name);
+                    }
                 }
             }