Allow globals that start with $_

06d7bd69 · Carson McDonald · d5021172 · 06d7bd69
Commit 06d7bd69 authored Mar 28, 2013 by Carson McDonald
Hide 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
@@ -4730,6 +4730,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 */