Avoid a double-encoding bug (by us then by the toolkit) that oddly ma…

…nifested itself during other refactors.
Raku · Apr 20, 2011 · 592c026 · 592c026
1 parent a89b31b
commit 592c026
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/src/PAST/Compiler-Regex.pir b/src/PAST/Compiler-Regex.pir
@@ -110,9 +110,8 @@ Return the POST representation of the regex AST rooted by C<node>.
   token_done:
     $S0 = regexname
     $S0 = concat '!PREFIX__', $S0
-    $S1 = escape $S0
     $P99 = get_hll_global ['PAST'], 'Block'
-    tpast = $P99.'new'(tpast, 'name'=>$S0, 'nsentry'=>$S1, 'lexical'=>0, 'blocktype'=>'method')
+    tpast = $P99.'new'(tpast, 'name'=>$S0, 'nsentry'=>$S0, 'lexical'=>0, 'blocktype'=>'method')
     tpost = self.'as_post'(tpast, 'rtype'=>'v')
     ops.'push'(tpost)
   peek_done:

diff --git a/src/stage0/Regex-s0.pir b/src/stage0/Regex-s0.pir
@@ -2823,9 +2823,8 @@ Return the POST representation of the regex AST rooted by C<node>.
   token_done:
     $S0 = regexname
     $S0 = concat '!PREFIX__', $S0
-    $S1 = escape $S0
     $P99 = get_hll_global ['PAST'], 'Block'
-    tpast = $P99.'new'(tpast, 'name'=>$S0, 'nsentry'=>$S1, 'lexical'=>0, 'blocktype'=>'method')
+    tpast = $P99.'new'(tpast, 'name'=>$S0, 'nsentry'=>$S0, 'lexical'=>0, 'blocktype'=>'method')
     tpost = self.'as_post'(tpast, 'rtype'=>'v')
     ops.'push'(tpost)
   peek_done: