From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 5 Nov 2001 15:21:13 +0000 (+0000)
Subject: The ${"\cTAINT"} raises the ire of 'use strict'.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b577f923e572b61e6042d8b97e5aba4db2b4ac2;p=p5sagit%2Fp5-mst-13.2.git

The ${"\cTAINT"} raises the ire of 'use strict'.

p4raw-id: //depot/perl@12855
---

diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index 32ace3b..7371c57 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 _;