X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Flocal-lib.git;a=blobdiff_plain;f=t%2Ftaint-mode.t;h=50735bf770434156f631e352b718075bc1732328;hp=43c01bea50f665b609e0aeaf370df0637e8438e7;hb=2dcb6c853bdf459c11096ea7c6f6c8e0594f98a8;hpb=8b0f74fc504a43c6d3dae01869f6e5b6933c5131

diff --git a/t/taint-mode.t b/t/taint-mode.t
index 43c01be..50735bf 100644
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -22,16 +22,14 @@ local::lib->import($dir1);
 # local lib to the same temp dir.
 my ($fh, $filename) = tempfile('test_local_lib-XXXXX', DIR => Cwd::abs_path('t'), UNLINK => 1);
 
-# escape backlslashes for embedding into generated script
-$dir1 =~ s/\\/\\\\/g;
-
 print $fh <<EOM;
 #!/usr/bin/perl -T
 use strict; use warnings;
-use local::lib '$dir1';
-warn "using lib dir $dir1\\n";
-my \$quoted_dir = quotemeta('$dir1');
-if (grep { m{^\$quoted_dir} } \@INC) {
+use local::lib ();
+my \$dir = "\Q$dir1\E";
+local::lib->import(\$dir);
+warn "using lib dir \$dir\\n";
+if (grep { m{^\\Q\$dir} } \@INC) {
   exit 0;
 }
 warn '\@INC is: ', join("\\n", \@INC), "\\n";