Respect :i in < foo bar > syntax.

rakudo · Oct 21, 2012 · 978492e · 978492e
1 parent d4a9b19
commit 978492e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -5613,7 +5613,9 @@ class Perl6::RegexActions is QRegex::P6Regex::Actions {
     method metachar:sym<qw>($/) {
         my $qast := QAST::Regex.new( :rxtype<alt>, :node($/) );
         for HLL::Grammar::split_words($/, $<quote_EXPR><quote_delimited>.ast.value) {
-            $qast.push(QAST::Regex.new( $_, :rxtype<literal> ));
+            $qast.push(%*RX<i>
+                ?? QAST::Regex.new( $_, :rxtype<literal>, :subtype<ignorecase> )
+                !! QAST::Regex.new( $_, :rxtype<literal> ));
         }
         make $qast;
     }