Fix for RT #128306

rakudo · Jun 12, 2016 · 054a54a · 054a54a
1 parent 51e1a27
commit 054a54a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -1789,7 +1789,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
             $/.CURSOR.typed_panic('X::Syntax::NegatedPair', key => ~$<identifier>) } ]?
             { $*key := $<identifier>.Str; $*value := 0; }
         | $<num> = [\d+] <identifier> [ <?before <[ \[ \( \< \{ ]>> {} <.sorry("Extra argument not allowed; pair already has argument of " ~ $<num>.Str)> <.circumfix> ]?
-            { $*key := $<identifier>.Str; $*value := +$<num>; }
+            { $*key := $<identifier>.Str; $*value := nqp::radix(10, $<num>, 0, 0)[0]; }
         | <identifier>
             { $*key := $<identifier>.Str; }
             [