diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-23 15:52:27 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-23 15:52:27 +0000 |
| commit | 25aae3a72e52ac6a70711f3dce68629d59f1cf87 (patch) | |
| tree | 1b826e757d9a19af45034f049d6b9b519b495458 /t/op/subst.t | |
| parent | e80b829c678662da5bda5d8b6fb6d7de54064909 (diff) | |
| download | perl-25aae3a72e52ac6a70711f3dce68629d59f1cf87.tar.gz | |
Remove -T from op/subst.t, and add a new test file, substT.t,
to run the s/// tests under taint mode; mark the test for
RT #6006 as TODO, but only with -T.
p4raw-id: //depot/perl@29618
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index b4a824eb39..39f160df93 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -1,4 +1,4 @@ -#!./perl -wT +#!./perl -w BEGIN { chdir 't' if -d 't'; @@ -563,11 +563,14 @@ 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 '$_'"); |