Handle Nd's in ${} special variables

rakudo · Jan 6, 2017 · eba3fe0 · eba3fe0
1 parent dd5759b
commit eba3fe0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -2034,7 +2034,10 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
             my $sigil := $<sigil>.Str;
             my $text := $<text>.Str;
             my $bad := $sigil ~ '{' ~ $text ~ '}';
-            $text := $text - 1 if $text ~~ /^\d+$/ && $text > 0;
+            if $text ~~ /^\d+$/ {
+                $text := nqp::radix(10, $text, 0, 0)[0];
+                $text := $text - 1 if $text > 0;
+            }
             if $sigil ne '$' && $sigil ne '@' {
                 False;  # not likely a P5ism
             }