Change 19639 by [EMAIL PROTECTED] on 2003/05/29 19:07:35
Add the test case for the already fixed
[perl #22351] perl bug with 'e' substitution modifier
Affected files ...
... //depot/perl/t/op/subst.t#42 edit
Differences ...
==== //depot/perl/t/op/subst.t#42 (xtext) ====
Index: perl/t/op/subst.t
--- perl/t/op/subst.t#41~18841~ Thu Mar 6 12:56:32 2003
+++ perl/t/op/subst.t Thu May 29 12:07:35 2003
@@ -7,7 +7,7 @@
}
require './test.pl';
-plan( tests => 129 );
+plan( tests => 130 );
$x = 'foo';
$_ = "x";
@@ -531,3 +531,11 @@
$_ = "abc";
/(a)/; s/(b)|(c)/-$^N/g;
is($_,'a-b-c','#20682 $^N not visible in replacement');
+
+# [perl #22351] perl bug with 'e' substitution modifier
+my $name = "chris";
+{
+ no warnings 'uninitialized';
+ $name =~ s/hr//e;
+}
+is($name, "cis", q[#22351 bug with 'e' substitution modifier]);
End of Patch.
