Automatically add ¢ lexical to regex blocks.

perl6 · Nov 24, 2009 · 0ce5b09 · 0ce5b09
1 parent a89723d
commit 0ce5b09
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -482,6 +482,10 @@ sub buildsub($rpast, $block = PAST::Block.new() ) {
         :pasttype('concat'),
         :capnames(%capnames)
     );
+    unless $block.symbol('$¢') {
+        $block.push( PAST::Var.new( :name<$¢>, :scope<lexical>, :isdecl ) );
+        $block.symbol('$¢', :scope<lexical> );
+    }
     $block.push($rpast);
     $block.blocktype('method');
     $block;