Merge pull request #990 from MasterDuke17

Handle all Nd digits in regex backslash errors
rakudo · Jan 6, 2017 · 964b28b · 964b28b
2 parents dd5759b + 161d7a0
commit 964b28b
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -5208,7 +5208,12 @@ grammar Perl6::RegexGrammar is QRegex::P6Regex::Grammar does STD does CursorPack
 
     token metachar:sym<{}> { \\<[xo]>'{' <.obsbrace> }
 
-    token backslash:sym<1> { <[1..9]>\d* {} <.sorry("Unrecognized backslash sequence (did you mean \${$/ - 1}?)")> }
+    token backslash:sym<1> {
+        <.[\d] - [0]>\d*
+        {}
+        :my int $br := nqp::radix(10, $/, 0, 0)[0];
+        <.sorry("Unrecognized backslash sequence (did you mean \${$br == 0 ?? $br !! $br - 1}?)")>
+    }
 
     token assertion:sym<{ }> {
         <?[{]> <codeblock>