Add missing setting of ignorecase flag.

Raku · Dec 7, 2011 · 73e0060 · 73e0060
1 parent 987cd89
commit 73e0060
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -89,9 +89,14 @@ class QRegex::P6Regex::Actions is HLL::Actions {
     }
 
     method atom($/) {
-        make $<metachar>
-               ?? $<metachar>.ast
-               !! QAST::Regex.new( ~$/, :rxtype<literal>, :node($/));
+        if $<metachar> {
+            make $<metachar>.ast;
+        }
+        else {
+            my $qast := QAST::Regex.new( ~$/, :rxtype<literal>, :node($/));
+            $qast.subtype('ignorecase') if %*RX<i>;
+            make $qast;
+        }
     }
 
     method quantifier:sym<*>($/) {