Adjust regexes to use @?BLOCKPAST dynamic var instead of @?BLOCK global.

perl6 · Jun 6, 2010 · 6841519 · 6841519
1 parent 42209fb
commit 6841519
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/build/PARROT_REVISION b/build/PARROT_REVISION
@@ -1 +1 @@
-47341
+47415
diff --git a/src/PAST/Compiler-Regex.pir b/src/PAST/Compiler-Regex.pir
@@ -40,7 +40,7 @@ Return the POST representation of the regex AST rooted by C<node>.
     .lex '$*REG', reghash
 
     .local pmc regexname, regexname_esc
-    $P0 = get_global '@?BLOCK'
+    $P0 = find_dynamic_lex '@*BLOCKPAST'
     $P1 = $P0[0]
     $S0 = $P1.'name'()
     regexname = box $S0