X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftaint-mode.t;h=ae73f7f246b74c8b2ae970d1f9520e0e1c70ee88;hb=refs%2Ftags%2F1.008021;hp=3561e0c7d70c75748b88520caae77325420b7ddb;hpb=076f72d98a2d019b81af342fe9689d4ab7b90007;p=p5sagit%2Flocal-lib.git

diff --git a/t/taint-mode.t b/t/taint-mode.t
index 3561e0c..ae73f7f 100644
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -29,11 +29,13 @@ print $fh <<EOM;
 #!/usr/bin/perl -T
 use strict; use warnings;
 use local::lib '$dir1';
-warn 'using lib dir $dir1', "\n";
-my \$dir = '$dir1';
-if (grep { m{^\\Q\$dir\\E/} } \@INC) {
+warn "using lib dir $dir1\\n";
+my \$quoted_dir = quotemeta('$dir1');
+warn "dir is $dir1, quoted is \$quoted_dir\\n";
+if (grep { m{^\$quoted_dir/} } \@INC) {
   exit 0;
 }
+warn '\@INC is: ', join("\\n", \@INC), "\\n";
 exit 1
 EOM
 close $fh;