fix separator use with code block in quantifier

Raku · Jul 25, 2014 · 83e13b6 · 83e13b6
1 parent 3097e14
commit 83e13b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -87,7 +87,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {
             $qast := $ast;
         }
         if $<separator> {
-            unless $qast.rxtype eq 'quant' {
+            if $qast.rxtype ne 'quant' && $qast.rxtype ne 'dynquant' {
                 $/.CURSOR.panic("'" ~ $<separator>[0]<septype> ~
                     "' many only be used immediately following a quantifier")
             }