Merge pull request #1102 from carsonmcdonald/gvarunderscorefix

Allow globals that start with $_

Merge pull request #1102 from carsonmcdonald/gvarunderscorefix
Allow globals that start with $_
cb946da7 · Yukihiro "Matz" Matsumoto · b29b4218 · 06d7bd69 · cb946da7
Commit cb946da7 authored Mar 28, 2013 by Yukihiro "Matz" Matsumoto
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

src/parse.y src/parse.y +5 -0

No files found.
--- a/src/parse.y
+++ b/src/parse.y
@@ -4729,6 +4729,11 @@ parser_yylex(parser_state *p)
    switch (c) {
    case '_':     /* $_: last read line string */
      c = nextc(p);
+      if (c != -1 && identchar(c)) { /* if there is more after _ it is a variable */
+        tokadd(p, '$');
+        tokadd(p, c);
+        break;
+      }
      pushback(p, c);
      c = '_';
      /* fall through */