fix separator use with code block in quantifier

FROGGS · FROGGS · commit 83e13b64b073 · 2014-07-26T00:19:58.000+02:00
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")
             }

Original file line number	Diff line number	Diff line change
`@@ -87,7 +87,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {`
`87`	`87`	`$qast := $ast;`
`88`	`88`	`}`
`89`	`89`	`if $<separator> {`
`90`		`- unless $qast.rxtype eq 'quant' {`
	`90`	`+ if $qast.rxtype ne 'quant' && $qast.rxtype ne 'dynquant' {`
`91`	`91`	`$/.CURSOR.panic("'" ~ $<separator>[0]<septype> ~`
`92`	`92`	`"' many only be used immediately following a quantifier")`
`93`	`93`	`}`