Perlito5 - syntax - allow '0'

fglock · Apr 1, 2014 · c7afb9d · c7afb9d
1 parent 4fdfade
commit c7afb9d
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/html/perlito5.js b/html/perlito5.js
@@ -10973,10 +10973,10 @@ return (p5pkg["Perlito5::Match"].flat([p5pkg["Perlito5::Grammar::Number"]["v__"]
 								(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('to', (v_pos1));
 								return (p5context([(function () {
 									var v_m2;
-									v_m2 = (p5call(p5pkg["Perlito5::Grammar::Number"], "digit", p5list_to_a(v_str, (v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('to')), 0));
+									v_m2 = (p5call(p5pkg["Perlito5::Grammar::Number"], "digits", p5list_to_a(v_str, (v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hget('to')), 0));
 									if ( p5bool(v_m2) ) {
 										(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('to', ((v_m2 || (v_m2 = new p5HashRef({})))._hash_.p5hget('to')));
-										(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('Perlito5::Grammar::Number.digit', (v_m2));
+										(v_MATCH || (v_MATCH = new p5HashRef({})))._hash_.p5hset('Perlito5::Grammar::Number.digits', (v_m2));
 										return (p5context([1], p5want));
 									}
 									else {

diff --git a/perlito5.pl b/perlito5.pl
@@ -7879,10 +7879,10 @@ sub Perlito5::Grammar::var_name {
         }) || (do {
             $MATCH->{'to'} = $pos1;
             (do {
-                my $m2 = Perlito5::Grammar::Number->digit($str, $MATCH->{'to'});
+                my $m2 = Perlito5::Grammar::Number->digits($str, $MATCH->{'to'});
                 if ($m2) {
                     $MATCH->{'to'} = $m2->{'to'};
-                    $MATCH->{'Perlito5::Grammar::Number.digit'} = $m2;
+                    $MATCH->{'Perlito5::Grammar::Number.digits'} = $m2;
                     1
                 }
                 else {

diff --git a/src5/lib/Perlito5/Grammar.pm b/src5/lib/Perlito5/Grammar.pm
@@ -97,7 +97,7 @@ token opt_type {
 
 token var_sigil     { \$ |\% |\@ |\& | \* };
 
-token var_name      { <full_ident> | <Perlito5::Grammar::Number.digit> };
+token var_name      { <full_ident> | <Perlito5::Grammar::Number.digits> };
 
 token var_ident {
     <var_sigil> <optional_namespace_before_ident> <var_name>