catch p5 regex adverbs after s///

FROGGS · Dec 28, 2012 · a11bad6 · a11bad6
1 parent c8de2eb
commit a11bad6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -2732,6 +2732,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         }
         <rx_adverbs>
         <sibble(%*RX<P5> ?? %*LANG<P5Regex> !! %*LANG<Regex>, %*LANG<Q>, ['qq'])>
+        <.old_rx_mods>?
     }
 
     token old_rx_mods {