diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-01-02 15:16:11 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-01-02 15:16:11 -0600 |
| commit | 4b24804c085ea7ddbc20fa745c8d326ab5e21f36 (patch) | |
| tree | 0623c18b920bfbab0cf4dcb81a4a511d884ffcfe /t | |
| parent | 9c9f25b8ce09796ec5e5e4e5c76f43506c223a8f (diff) | |
| download | perl-4b24804c085ea7ddbc20fa745c8d326ab5e21f36.tar.gz | |
Don't clobber $^O when you're going to use it again.
Even if using it means relying on t/test.pl functionality such as
fresh_perl_is().
Diffstat (limited to 't')
| -rw-r--r-- | t/op/taint.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index fc2fcd74bb..ee8e2aae49 100644 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -1034,6 +1034,7 @@ TODO: { test !tainted($^O); if (!$^X) { } elsif ($^O eq 'bar') { } test !tainted($^O); + local $^O; # We're going to clobber something test infrastructure depends on. eval '$^O = $^X'; test $@ =~ /Insecure dependency in/; } |