X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftaint-mode.t;h=6efe05e4fa1a2a7f1ea457158bffc513ae4dddf3;hb=4a1c5f7fc04e6cd059351c6246a0852b683ef5b6;hp=cc7233c094c1064afb9767f678a35d53b849c023;hpb=89201d47ae16b04ce438085e386be5fab45e9a48;p=p5sagit%2Flocal-lib.git

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