Merge pull request #2508 from FCO/master

Fix shaped dynamic var (my %*a{Int})
rakudo · Nov 27, 2018 · 43ac327 · 43ac327
2 parents 7a82deb + bcdf87a
commit 43ac327
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -2281,7 +2281,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         {
             $*VARIABLE := $<variable>.ast.name;
             $/.add_variable($*VARIABLE);
-            $sigil := nqp::substr($*VARIABLE, 0, 1);
+            $sigil := $<variable><sigil>.Str;
             $*IN_DECL := '';
         }
         [