Change 11650 by jhi@alpha on 2001/08/12 20:17:32
Relic in op.c (no regex feature should depend on the utf8 pragma),
and a test tweak.
Affected files ...
... //depot/perl/op.c#426 edit
... //depot/perl/t/pod/find.t#9 edit
Differences ...
==== //depot/perl/op.c#426 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Sun Aug 12 14:30:05 2001
+++ perl/op.c Sun Aug 12 14:30:05 2001
@@ -3002,7 +3002,7 @@
p = SvPV(pat, plen);
pm->op_pmflags |= PMf_SKIPWHITE;
}
- if ((PL_hints & HINT_UTF8) || DO_UTF8(pat))
+ if (DO_UTF8(pat))
pm->op_pmdynflags |= PMdf_UTF8;
PM_SETRE(pm, CALLREGCOMP(aTHX_ p, p + plen, pm));
if (strEQ("\\s+", PM_GETRE(pm)->precomp))
@@ -3010,7 +3010,7 @@
op_free(expr);
}
else {
- if (PL_hints & HINT_UTF8)
+ if (!IN_BYTES)
pm->op_pmdynflags |= PMdf_UTF8;
if (pm->op_pmflags & PMf_KEEP || !(PL_hints & HINT_RE_EVAL))
expr = newUNOP((!(PL_hints & HINT_RE_EVAL)
==== //depot/perl/t/pod/find.t#9 (text) ====
Index: perl/t/pod/find.t
--- perl/t/pod/find.t.~1~ Sun Aug 12 14:30:05 2001
+++ perl/t/pod/find.t Sun Aug 12 14:30:05 2001
@@ -2,8 +2,12 @@
# Author: Marek Rouchal <[EMAIL PROTECTED]>
BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
+ chdir 't' if -d 't';
+ # The ../../../../../lib is for finding lib/utf8.pm
+ # when running under all-utf8 settings (pod/find.t)
+ # does not directly require lib/utf8.pm but regular
+ # expressions will need that.
+ @INC = qw(../lib ../../../../../lib);
}
$| = 1;
End of Patch.
