adding (U8) to case insensitive matching

Message-ID: <Pine.GSO.4.21.0109142057490.12393-100000@crusoe.crusoe.net>

p4raw-id: //depot/perl@12031

diff --git a/regexec.c b/regexec.c
index cad6a40..b70896f 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -3286,8 +3286,8 @@ S_regmatch(pTHX_ regnode *prog)
                                    locinput++;
                            } else {
                                while (locinput <= e
-                                      && *locinput != c1
-                                      && *locinput != c2)
+                                      && (U8) *locinput != (U8) c1
+                                      && (U8) *locinput != (U8) c2)
                                    locinput++;
                            }
                            count = locinput - old;