From 06d7bd69a34d52042c5b9631cc5a1ebbf5af7f32 Mon Sep 17 00:00:00 2001
From: Carson McDonald <carson@ioncannon.net>
Date: Thu, 28 Mar 2013 17:20:28 -0400
Subject: Allow globals that start with $_

---
 src/parse.y | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/parse.y')

diff --git a/src/parse.y b/src/parse.y
index 4826f4336..1bc28283d 100644
--- 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 */
-- 
cgit v1.2.3