Perlito5 - misc/perl5_parser double-colon

fglock · Jul 9, 2024 · 5e86706 · 5e86706
1 parent 737dd9d
commit 5e86706
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/misc/perl5_parser/perl5_parser.pl b/misc/perl5_parser/perl5_parser.pl
@@ -632,10 +632,13 @@ sub parse_variable_interpolation {
         my $sigil = $tokens->[$pos][1];
         $pos++;    # $
         my $expr;
-        if ( $tokens->[$pos][0] == IDENTIFIER() ) {
+        if ( $tokens->[$pos][0] == IDENTIFIER() || $tokens->[$pos][0] == NUMBER() || $tokens->[$pos][0] == DOUBLE_COLON() ) {
 
-            # TODO $1 $2 $$
-            $expr = { type => 'BAREWORD', value => $tokens->[$pos][1], next => $pos + 1 };
+            # TODO special vars $$
+            $expr = parse_colon_bareword( $tokens, $pos );
+            if ( $expr->{FAIL} ) {
+                return parse_fail( $tokens, $index );
+            }
 
             # TODO if sigil is not $#, check for [] {} ->
         }