Change 18291 by jhi@lyta on 2002/12/11 20:13:30
[perl #19048] has already been fixed; add its test.
Affected files ...
... //depot/maint-5.8/perl/t/op/subst.t#3 edit
Differences ...
==== //depot/maint-5.8/perl/t/op/subst.t#3 (xtext) ====
Index: perl/t/op/subst.t
--- perl/t/op/subst.t#2~18214~ Thu Nov 28 15:41:54 2002
+++ perl/t/op/subst.t Wed Dec 11 12:13:30 2002
@@ -7,7 +7,7 @@
}
require './test.pl';
-plan( tests => 124 );
+plan( tests => 125 );
$x = 'foo';
$_ = "x";
@@ -494,9 +494,19 @@
$_ = 'aaaa';
$r = 'x';
$s = s/a(?{})/$r/g;
-is("<$_> <$s>", "<xxxx> <4>", "perl #7806");
+is("<$_> <$s>", "<xxxx> <4>", "[perl #7806]");
$_ = 'aaaa';
$s = s/a(?{})//g;
-is("<$_> <$s>", "<> <4>", "perl #7806");
+is("<$_> <$s>", "<> <4>", "[perl #7806]");
+# [perl #19048] Coredump in silly replacement
+{
+ local $^W = 0;
+ $_="abcdef\n";
+ s!.!!eg;
+ is($_, "\n", "[perl #19048]");
+}
+
+
+
End of Patch.
