[p6regex]: Handle @modifier initialization.

perl6 · Oct 28, 2009 · 6f44564 · 6f44564
1 parent 775500b
commit 6f44564
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/Regex/P6Regex.pir b/src/Regex/P6Regex.pir
@@ -36,6 +36,8 @@ Regex::P6Regex - Parser/compiler for Perl 6 regexes
     p6regex.'parsegrammar'($P0)
     $P0 = get_hll_global ['Regex';'P6Regex'], 'Actions'
     p6regex.'parseactions'($P0)
+    $P0 = get_hll_global ['Regex';'P6Regex';'Actions'], 'INIT'
+    $P0()
 .end
 
 

diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -1,11 +1,15 @@
 class Regex::P6Regex::Actions;
 
 ## this will eventually be handled using contextuals
-our @MODIFIERS := Q:PIR { 
+our @MODIFIERS;
+
+sub INIT() {
+    @MODIFIERS := Q:PIR { 
         %r = new ['ResizablePMCArray'] 
         $P0 = new ['Hash']
         push %r, $P0
     };
+}
 
 method arg($/) {
     make $<quote> ?? ~$<quote><val> !! +$<val>;