Make !LITERAL support getting a flag to match cAsE InSenSitiVE.

perl6 · Apr 21, 2012 · 655049ef5483f46d1620405eb0e85648a9f52fd7 · 655049e
1 parent 0f16cba
commit 655049ef5483f46d1620405eb0e85648a9f52fd7
Unified Split

Showing with 4 additions and 2 deletions.

+4 −2 src/QRegex/Cursor.nqp
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -203,11 +203,13 @@ role NQPCursorRole {
         $cur;
     }
 
-    method !LITERAL($str) {
+    method !LITERAL($str, $i = 0) {
         my $cur := self."!cursor_start"();
         my $litlen := nqp::chars($str);
         $cur."!cursor_pass"($!pos + $litlen)
-          if nqp::substr($!target, $!pos, $litlen) eq $str;
+          if $i
+            ?? nqp::lc(nqp::substr($!target, $!pos, $litlen)) eq nqp::lc($str)
+            !! nqp::substr($!target, $!pos, $litlen) eq $str;
         $cur;
     }