Change 14135 by jhi@alpha on 2002/01/08 15:12:38
Subject: Not OK 13843
From: [EMAIL PROTECTED] (Andreas J. Koenig)
Date: 08 Jan 2002 14:12:29 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/op.c#473 edit
.... //depot/perl/t/op/subst.t#29 edit
Differences ...
==== //depot/perl/op.c#473 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Tue Jan 8 08:30:05 2002
+++ perl/op.c Tue Jan 8 08:30:05 2002
@@ -3131,7 +3131,7 @@
p = SvPV(pat, plen);
pm->op_pmflags |= PMf_SKIPWHITE;
}
- if (DO_UTF8(pat) || (PL_hints & HINT_UTF8))
+ 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))
@@ -3139,8 +3139,6 @@
op_free(expr);
}
else {
- if (PL_hints & HINT_UTF8)
- pm->op_pmdynflags |= PMdf_UTF8;
if (pm->op_pmflags & PMf_KEEP || !(PL_hints & HINT_RE_EVAL))
expr = newUNOP((!(PL_hints & HINT_RE_EVAL)
? OP_REGCRESET
==== //depot/perl/t/op/subst.t#29 (xtext) ====
Index: perl/t/op/subst.t
--- perl/t/op/subst.t.~1~ Tue Jan 8 08:30:05 2002
+++ perl/t/op/subst.t Tue Jan 8 08:30:05 2002
@@ -7,7 +7,7 @@
}
require './test.pl';
-plan( tests => 87 );
+plan( tests => 88 );
$x = 'foo';
$_ = "x";
@@ -365,3 +365,12 @@
$_ = "Charles Bronson";
$snum = s/\B\w//g;
ok( $_ eq "C B" && $snum == 12 );
+
+{
+ use utf8;
+ my $s = "H\303\266he";
+ my $l = my $r = $s;
+ $l =~ s/[^\w]//g;
+ $r =~ s/[^\w\.]//g;
+ is($l, $r, "use utf8");
+}
End of Patch.
