RT #77410 implement :ignorecase for cclasses

Approach was taken from P5Regex.
Raku · Mar 3, 2013 · 110a95d · 110a95d
1 parent 4b23ff4
commit 110a95d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -511,7 +511,10 @@ class QRegex::P6Regex::Actions is HLL::Actions {
                     $bs.subtype('zerowidth') if $bs.negate;
                     @alts.push($bs);
                 }
-                else { $str := $str ~ ~$_[0]; }
+                else {
+                    my $c := ~$_[0];
+                    $str := $str ~ (%*RX<i> ?? nqp::lc($c) ~ nqp::uc($c) !! $c);
+                }
             }
             @alts.push(QAST::Regex.new( $str, :rxtype<enumcharlist>, :node($/), :negate( $<sign> eq '-' ) ))
                 if nqp::chars($str);