Don't override a specified sigil in [...] unpack.

rakudo · Jun 2, 2014 · 394a74d · 394a74d
1 parent bd78aef
commit 394a74d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -3848,7 +3848,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
             }
             %*PARAM_INFO<sub_signature_params> := $<signature>.ast;
             if nqp::substr(~$/, 0, 1) eq '[' {
-                %*PARAM_INFO<sigil> := '@';
+                %*PARAM_INFO<sigil> := '@' unless %*PARAM_INFO<sigil>;
             }
         }
         else {