Change 32746 by [EMAIL PROTECTED] on 2007/12/27 20:44:26
Localize $\ before changing it, so as not to affect print statements in
the rest of the test.
Affected files ...
... //depot/perl/t/op/pat.t#296 edit
Differences ...
==== //depot/perl/t/op/pat.t#296 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#295~32628~ 2007-12-17 08:01:32.000000000 -0800
+++ perl/t/op/pat.t 2007-12-27 12:44:26.000000000 -0800
@@ -3074,12 +3074,15 @@
ok($a !~ /^\C{4}y/, q{don't match \C{4}y});
}
-$_ = 'aaaaaaaaaa';
-utf8::upgrade($_); chop $_; $\="\n";
-ok(/[^\s]+/, "m/[^\s]/ utf8");
-ok(/[^\d]+/, "m/[^\d]/ utf8");
-ok(($a = $_, $_ =~ s/[^\s]+/./g), "s/[^\s]/ utf8");
-ok(($a = $_, $a =~ s/[^\d]+/./g), "s/[^\s]/ utf8");
+{
+ local $\;
+ $_ = 'aaaaaaaaaa';
+ utf8::upgrade($_); chop $_; $\="\n";
+ ok(/[^\s]+/, "m/[^\s]/ utf8");
+ ok(/[^\d]+/, "m/[^\d]/ utf8");
+ ok(($a = $_, $_ =~ s/[^\s]+/./g), "s/[^\s]/ utf8");
+ ok(($a = $_, $a =~ s/[^\d]+/./g), "s/[^\s]/ utf8");
+}
ok("\x{100}" =~ /\x{100}/, "[perl #15397]");
ok("\x{100}" =~ /(\x{100})/, "[perl #15397]");
End of Patch.
