diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-24 09:58:43 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-24 09:58:43 +0000 |
| commit | 99dd2394ae4d2f743703d286bac046c67fde99af (patch) | |
| tree | adadae77a1080b7b03aa98b48e2300c6fbe53291 /t | |
| parent | c526aa6337ee17172ed69ab8b1da40986e578124 (diff) | |
| download | perl-99dd2394ae4d2f743703d286bac046c67fde99af.tar.gz | |
Un-TODO one test in pat.t ($1 kept safe after a /g match)
p4raw-id: //depot/perl@29371
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 21db20ca34..f337a58ba6 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4109,7 +4109,7 @@ for my $c ("z", "\0", "!", chr(254), chr(256)) { my $v; ($v='bar')=~/(\w+)/g; $v='foo'; - iseq("$1",'bar','# TODO $1 is safe after /g - may fail due to specialized config in pp_hot.c') + iseq("$1",'bar','$1 is safe after /g - may fail due to specialized config in pp_hot.c') } # Test counter is at bottom of file. Put new tests above here. |