Change 18609 by jhi@kosh on 2003/01/31 08:58:40
Go even further (back) than change #18608 and revert
to the 5.8.0 code, since otherwise split.t #40 fails.
The four new tests of pat.t should keep us more honest.
Affected files ...
... //depot/perl/regexec.c#299 edit
Differences ...
==== //depot/perl/regexec.c#299 (text) ====
Index: perl/regexec.c
--- perl/regexec.c#298~18608~ Fri Jan 31 00:24:53 2003
+++ perl/regexec.c Fri Jan 31 00:58:40 2003
@@ -97,7 +97,6 @@
#endif
#define REGINCLASS(p,c) (ANYOF_FLAGS(p) ? reginclass(p,c,0,0) :
ANYOF_BITMAP_TEST(p,*(c)))
-#define REGINCLASS_utf8(p,c) (ANYOF_FLAGS(p) ? reginclass(p,c,0,1) :
ANYOF_BITMAP_TEST(p,*(c)))
/*
* Forwards.
@@ -4078,9 +4077,8 @@
case ANYOF:
if (do_utf8) {
loceol = PL_regeol;
- while (hardcount < max && scan < loceol) {
- if (!REGINCLASS_utf8(p, (U8*)scan))
- break;
+ while (hardcount < max && scan < loceol &&
+ reginclass(p, (U8*)scan, 0, do_utf8)) {
scan += UTF8SKIP(scan);
hardcount++;
}
End of Patch.
