Change 20158 by [EMAIL PROTECTED] on 2003/07/13 19:52:58
Add a TODO test for perlbug #19049
Subject: Re: [perl #19049] Incorrect $` after replacement (test for same)
From: Alex Gough <[EMAIL PROTECTED]>
Date: Fri, 11 Jul 2003 01:12:42 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/pat.t#204 edit
Differences ...
==== //depot/perl/t/op/pat.t#204 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#203~19814~ Wed Jun 18 12:19:38 2003
+++ perl/t/op/pat.t Sun Jul 13 12:52:58 2003
@@ -6,7 +6,7 @@
$| = 1;
-print "1..1006\n";
+print "1..1007\n";
BEGIN {
chdir 't' if -d 't';
@@ -3189,4 +3189,9 @@
#$_ = "x"; /x(?{func "in regexp"})/;
#$_ = "x"; /x(?{func "in multiline regexp"})/m;
-# last test 1004
+# bug #19049
+$_="abcdef\n";
[EMAIL PROTECTED] = m/./g;
+ok("abcde" eq "$`", '# TODO #19049 - global match not setting $`');
+
+# last test 1007
End of Patch.
