Enable case-insensitive literal interpolation for systems w/o ICU.

pmichaud · pmichaud · commit 232518cf6664 · 2012-04-21T05:08:56.000-05:00
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -208,7 +208,7 @@ role NQPCursorRole {
         my $litlen := nqp::chars($str);
         $cur."!cursor_pass"($!pos + $litlen)
           if $i
-            ?? nqp::lc(nqp::substr($!target, $!pos, $litlen)) eq nqp::lc($str)
+            ?? nqp::lc(pir::trans_encoding__Ssi(nqp::substr($!target, $!pos, $l
             !! nqp::substr($!target, $!pos, $litlen) eq $str;
         $cur;
     }

Original file line number	Diff line number	Diff line change
`@@ -208,7 +208,7 @@ role NQPCursorRole {`
`208`	`208`	`my $litlen := nqp::chars($str);`
`209`	`209`	`$cur."!cursor_pass"($!pos + $litlen)`
`210`	`210`	`if $i`
`211`		`- ?? nqp::lc(nqp::substr($!target, $!pos, $litlen)) eq nqp::lc($str)`
	`211`	`+ ?? nqp::lc(pir::trans_encoding__Ssi(nqp::substr($!target, $!pos, $l`
`212`	`212`	`!! nqp::substr($!target, $!pos, $litlen) eq $str;`
`213`	`213`	`$cur;`
`214`	`214`	`}`