Catch 5. decimal error at EOF; typed exception.

Resolves and allows us to test RT #93988.
rakudo · Apr 8, 2015 · 816dd64 · 816dd64
1 parent 192bf4b
commit 816dd64
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3430,7 +3430,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
             ]
         | <VALUE=decint>
         ]
-        <!!before ['.' <?before \s | ',' | '=' | <terminator> > <.sorry: "Decimal point must be followed by digit">]? >
+        <!!before ['.' <?before \s | ',' | '=' | <terminator> | $ > <.typed_sorry: 'X::Syntax::Number::IllegalDecimal'>]? >
         [ <?before '_' '_'+\d> <.sorry: "Only isolated underscores are allowed inside numbers"> ]?
     }
 

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -1048,6 +1048,10 @@ my class X::Syntax::Number::RadixOutOfRange does X::Syntax {
     method message() { "Radix $.radix out of range (allowed: 2..36)" }
 }
 
+my class X::Syntax::Number::IllegalDecimal does X::Syntax {
+    method message() { "Decimal point must be followed by digit" }
+}
+
 my class X::Syntax::NonAssociative does X::Syntax {
     has $.left;
     has $.right;