Change 12031 by jhi@alpha on 2001/09/15 18:37:07
Subject: [PATCH regexec.c] adding (U8) to case insensitive matching
From: "Jeff 'japhy/Marillion' Pinyan" <[EMAIL PROTECTED]>
Date: Fri, 14 Sep 2001 20:58:30 -0400 (EDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/regexec.c#189 edit
Differences ...
==== //depot/perl/regexec.c#189 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Sat Sep 15 12:45:05 2001
+++ perl/regexec.c Sat Sep 15 12:45:05 2001
@@ -3286,8 +3286,8 @@
locinput++;
} else {
while (locinput <= e
- && *locinput != c1
- && *locinput != c2)
+ && (U8) *locinput != (U8) c1
+ && (U8) *locinput != (U8) c2)
locinput++;
}
count = locinput - old;
End of Patch.
