diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-23 16:15:50 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-23 16:15:50 +0000 |
commit | 10250113e7a9436d0e11467beb33a1b1c5888098 (patch) | |
tree | 43df92068e4593a17f72ee24bcd97c8c21825583 /t | |
parent | 25aae3a72e52ac6a70711f3dce68629d59f1cf87 (diff) | |
download | perl-10250113e7a9436d0e11467beb33a1b1c5888098.tar.gz |
Fix #6006 for taint mode too.
p4raw-id: //depot/perl@29619
Diffstat (limited to 't')
-rwxr-xr-x | t/op/subst.t | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index 39f160df93..6cf84b7399 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -563,14 +563,11 @@ is($name, "cis", q[#22351 bug with 'e' substitution modifier]); is($c, "\x20\x30\x40\x50\x60", "s/[\\x00-\\x1f]//g"); } { - { - local our $TODO = ${^TAINT} ? "doesn't work with taint mode" : 0; $_ = "xy"; no warnings 'uninitialized'; /(((((((((x)))))))))(z)/; # clear $10 s/(((((((((x)))))))))(y)/${10}/; is($_,"y","RT#6006: \$_ eq '$_'"); - } $_ = "xr"; s/(((((((((x)))))))))(r)/fooba${10}/; is($_,"foobar","RT#6006: \$_ eq '$_'"); |