X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftaint-mode.t;h=50735bf770434156f631e352b718075bc1732328;hb=refs%2Ftags%2F1.008026;hp=d4f773aefd58f9c99fb55ac5ec5c2e4eb44c8fe1;hpb=19e2f061febaf3ba7b8da4d3fdeab83cc3bcd57c;p=p5sagit%2Flocal-lib.git

diff --git a/t/taint-mode.t b/t/taint-mode.t
index d4f773a..50735bf 100644
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -25,11 +25,14 @@ my ($fh, $filename) = tempfile('test_local_lib-XXXXX', DIR => Cwd::abs_path('t')
 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) {
+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";
 exit 1
 EOM
 close $fh;