Turn INIT() sub in P6Regex::Actions into a standard INIT {...} block.

perl6 · May 15, 2010 · 1232366 · 1232366
1 parent c5a3363
commit 1232366
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/src/Regex/P6Regex.pir b/src/Regex/P6Regex.pir
@@ -28,8 +28,6 @@ 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
@@ -3,7 +3,7 @@ class Regex::P6Regex::Actions is HLL::Actions;
 ## this will eventually be handled using contextuals
 our @MODIFIERS;
 
-sub INIT() {
+INIT {
     @MODIFIERS := Q:PIR {
         %r = new ['ResizablePMCArray']
         $P0 = new ['Hash']