From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 29 May 2003 19:07:35 +0000 (+0000)
Subject: Add the test case for the already fixed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7357df176774e7664c932ad3736afcba0ad8beb4;p=p5sagit%2Fp5-mst-13.2.git

Add the test case for the already fixed
[perl #22351] perl bug with 'e' substitution modifier

p4raw-id: //depot/perl@19639
---

diff --git a/t/op/subst.t b/t/op/subst.t
index 21a4305..148b5db 100755
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 require './test.pl';
-plan( tests => 129 );
+plan( tests => 130 );
 
 $x = 'foo';
 $_ = "x";
@@ -531,3 +531,11 @@ is($_, "3 (0 0 1 2)", '#20682 @- not visible in replacement');
 $_ = "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]);