projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: ac1256e)
adding (U8) to case insensitive matching
authorJeff Pinyan <japhy@pobox.com>
Fri, 14 Sep 2001 20:58:30 +0000 (16:58 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 15 Sep 2001 18:37:07 +0000 (18:37 +0000)
Message-ID: <Pine.GSO.4.21.0109142057490.12393-100000@crusoe.crusoe.net>

p4raw-id: //depot/perl@12031

regexec.c patch | blob | history

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;
Domain: System / Base;