Actually declare that $REGEXNAME is our scoped rather than never actu…

…ally declaring it anywhere in NQP.
Raku · Apr 20, 2011 · a89b31b · a89b31b
1 parent 30a5cbb
commit a89b31b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -2,6 +2,7 @@ class Regex::P6Regex::Actions is HLL::Actions {
 
     ## this will eventually be handled using contextuals
     our @MODIFIERS;
+    our $REGEXNAME;
 
     INIT {
         @MODIFIERS := Q:PIR {
@@ -405,8 +406,9 @@ class Regex::P6Regex::Actions is HLL::Actions {
             self.subrule_alias($past, $name);
         }
         elsif $name eq 'sym' {
+            my $rxname := $REGEXNAME;
             my $regexsym := Q:PIR {
-                $P0 = get_global '$REGEXNAME'
+                $P0 = find_lex '$rxname'
                 $S0 = $P0
                 $I0 = index $S0, ':sym<'
                 add $I0, 5