diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-05 15:21:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-05 15:21:13 +0000 |
| commit | 5b577f923e572b61e6042d8b97e5aba4db2b4ac2 (patch) | |
| tree | 9a9d69430d2489bf21e7f04dff1e886a3645e0e9 /lib/File/Spec/Unix.pm | |
| parent | b4c5e263c3e0ec8af3615a4049145b94b9d139bd (diff) | |
| download | perl-5b577f923e572b61e6042d8b97e5aba4db2b4ac2.tar.gz | |
The ${"\cTAINT"} raises the ire of 'use strict'.
p4raw-id: //depot/perl@12855
Diffstat (limited to 'lib/File/Spec/Unix.pm')
| -rw-r--r-- | lib/File/Spec/Unix.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm index 32ace3bff4..7371c572dd 100644 --- a/lib/File/Spec/Unix.pm +++ b/lib/File/Spec/Unix.pm @@ -133,9 +133,12 @@ my $tmpdir; sub tmpdir { return $tmpdir if defined $tmpdir; my @dirlist = ($ENV{TMPDIR}, "/tmp"); - if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0 - require Scalar::Util; - shift @dirlist if Scalar::Util::tainted($ENV{TMPDIR}); + { + no strict 'refs'; + if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0 + require Scalar::Util; + shift @dirlist if Scalar::Util::tainted($ENV{TMPDIR}); + } } foreach (@dirlist) { next unless defined && -d && -w _; |