Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

allow underscores in rat literals. Tests.

  • Loading branch information...
commit a93020488f079cb77a27bb5a416e8271119eba58 1 parent a08f69e
@moritz moritz authored
Showing with 4 additions and 4 deletions.
  1. +2 −2 src/Perl6/Actions.pm
  2. +2 −2 t/spectest.data
View
4 src/Perl6/Actions.pm
@@ -2701,8 +2701,8 @@ class Perl6::Actions is HLL::Actions {
}
method dec_number($/) {
- my $int := $<int> ?? ~$<int> !! "0";
- my $frac := $<frac> ?? ~$<frac> !! "0";
+ my $int := $<int> ?? ~$<int>.ast !! "0";
+ my $frac := $<frac> ?? ~$<frac>.ast !! "0";
if $<escale> {
my $exp := ~$<escale>[0]<decint>;
make $*ST.add_constant('Num', 'num',
View
4 t/spectest.data
@@ -74,7 +74,7 @@ S02-literals/pair-boolean.t
S02-literals/sub-calls.t
# S02-literals/subscript.t
S02-literals/types.t
-# S02-literals/underscores.t # need Rat literals
+S02-literals/underscores.t
# S02-magicals/args.t
# S02-magicals/config.t
# S02-magicals/dollar_bang.t
@@ -83,7 +83,7 @@ S02-literals/types.t
# S02-magicals/pid.t
# S02-magicals/progname.t
# S02-names_and_variables/contextual.t # need !private methods
-# S02-names_and_variables/fmt.t # need Rat literals
+# S02-names_and_variables/fmt.t
# S02-names_and_variables/names.t # need regexes
# S02-names_and_variables/perl.t # need regexes # icu
# S02-names_and_variables/list_array_perl.t
Please sign in to comment.
Something went wrong with that request. Please try again.