diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-07-07 14:47:51 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-07-07 14:47:51 +0000 |
| commit | 27cc343c4fb8030e5afb7c3824647d9e5e1d08d6 (patch) | |
| tree | 3349f5c3d5c7e047ae89b95601b0c0d5ac745e02 /t/op/taint.t | |
| parent | bd5c3bd9b8ed3edb9439b1889b9dae06dd1644d4 (diff) | |
| download | perl-27cc343c4fb8030e5afb7c3824647d9e5e1d08d6.tar.gz | |
more taint fallout from change 24943
p4raw-id: //depot/perl@25094
Diffstat (limited to 't/op/taint.t')
| -rwxr-xr-x | t/op/taint.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 9089d047d8..7f9d06e037 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -17,7 +17,7 @@ use Config; use File::Spec::Functions; BEGIN { require './test.pl'; } -plan tests => 243; +plan tests => 244; $| = 1; @@ -1128,3 +1128,10 @@ TERNARY_CONDITIONALS: { test tainted $x99; } +# an mg_get of a tainted value during localization shouldn't taint the +# statement + +{ + eval { local $0, eval '1' }; + test $@ eq ''; +} |