diff options
| author | Andreas König <a.koenig@mind.de> | 2005-11-04 09:17:25 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-04 16:26:08 +0000 |
| commit | e0efdaf8e9240c19cd4636de8080d872bb373f7f (patch) | |
| tree | 9d0d3182ccbc40d0448a2096b2706d5b1111ddb5 /t | |
| parent | d7507f7459e6b42ee8cfc80abf2510fc2ff6a5c0 (diff) | |
| download | perl-e0efdaf8e9240c19cd4636de8080d872bb373f7f.tar.gz | |
[perl #19049] Incorrect $` after replacement
Message-ID: <87fyqc51bu.fsf@k75.linux.bogus>
p4raw-id: //depot/perl@25993
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 10ecaf835d..a8d8e3b134 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -3196,7 +3196,7 @@ $_ = "x"; s/x/func "in multiline subst"/em; # bug #19049 $_="abcdef\n"; @x = m/./g; -ok("abcde" eq "$`", '# TODO #19049 - global match not setting $`'); +ok("abcde" eq "$`", '#19049 - global match not setting $`'); ok("123\x{100}" =~ /^.*1.*23\x{100}$/, 'uft8 + multiple floating substr'); @@ -3390,7 +3390,7 @@ ok(("foba ba$s" =~ qr/(foo|BaSS|bar)/i) $s = $1; $s = $2; ok($s eq 'cd', - "# TODO assigning to original string should not corrupt match vars"); + "# assigning to original string should not corrupt match vars"); } # last test 1187 |