From: Alexander Gough <alex-p5p@earth.li>
Date: Fri, 11 Jul 2003 01:12:42 +0000 (+0100)
Subject: Add a TODO test for perlbug #19049
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5aca436449cd62a9a59230a9a638565b1de6c2fb;p=p5sagit%2Fp5-mst-13.2.git

Add a TODO test for perlbug #19049
Subject: Re: [perl #19049] Incorrect $` after replacement (test for same)
Message-ID: <20030711001242.GD2484@the.earth.li>

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

diff --git a/t/op/pat.t b/t/op/pat.t
index 0b49054..1e7eaf7 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..1006\n";
+print "1..1007\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -3189,4 +3189,9 @@ $_ = "x"; s/x/func "in multiline subst"/em;
 #$_ = "x"; /x(?{func "in regexp"})/;
 #$_ = "x"; /x(?{func "in multiline regexp"})/m;
 
-# last test 1004
+# bug #19049
+$_="abcdef\n";
+@x = m/./g;
+ok("abcde" eq "$`", '# TODO #19049 - global match not setting $`');
+
+# last test 1007