diff options
| author | Alexander Gough <alex-p5p@earth.li> | 2003-07-11 02:12:42 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-13 19:52:58 +0000 |
| commit | 5aca436449cd62a9a59230a9a638565b1de6c2fb (patch) | |
| tree | b40826597c8adba341fb47898727c046f376c888 /t | |
| parent | 76ae0c45721dbaad41835ad785762950350f86b7 (diff) | |
| download | perl-5aca436449cd62a9a59230a9a638565b1de6c2fb.tar.gz | |
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
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 0b490545a2..1e7eaf7392 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 |