Use the P5Regex qbuildsub when needed.

puithin · Sep 29, 2012 · d14be4f · d14be4f
1 parent 7d227de
commit d14be4f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2462,7 +2462,9 @@ class Perl6::Actions is HLL::Actions {
                 $block[0].push(QAST::Var.new(:name<$/>, :scope<lexical>, :decl('var')));
                 $block.symbol('$/', :scope<lexical>, :lazyinit(1));
             }
-            $past := QRegex::P6Regex::Actions::qbuildsub($qast, $block);
+            $past := %*RX<P5>
+                ?? QRegex::P5Regex::Actions::qbuildsub($qast, $block)
+                !! QRegex::P6Regex::Actions::qbuildsub($qast, $block);
         }
         $past.name($name);
         $past.blocktype("declaration");