diff options
Diffstat (limited to 'lib/File/Spec')
| -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 _; |