Don't disregard backtrack modifiers directly placed on atoms. This wa…

…s why assertions.t failed in Rakudo.
Raku · May 27, 2012 · 5db4340 · 5db4340
1 parent cf4bf1f
commit 5db4340
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -80,7 +80,8 @@ class QRegex::P6Regex::Actions is HLL::Actions {
                     QAST::Regex.new( :rxtype<quant>, :min(0), :max(1), $<separator>[0].ast ));
             }
         }
-        $qast.backtrack('r') if $qast && !$qast.backtrack && %*RX<r>;
+        $qast.backtrack('r') if $qast && !$qast.backtrack &&
+            (%*RX<r> || $<backmod> && ~$<backmod>[0] eq ':');
         make $qast;
     }