This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c526aa6
)
Un-TODO one test in pat.t ($1 kept safe after a /g match)
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 24 Nov 2006 09:58:43 +0000
(09:58 +0000)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 24 Nov 2006 09:58:43 +0000
(09:58 +0000)
p4raw-id: //depot/perl@29371
t/op/pat.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/pat.t
b/t/op/pat.t
index
21db20c
..
f337a58
100755
(executable)
--- 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.