ignore outer local::lib in test instead of coping with it

[p5sagit/local-lib.git] / t / taint-mode.t

diff --git a/t/taint-mode.t b/t/taint-mode.t
index ae73f7f..43c01be 100644 (file)
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -31,8 +31,7 @@ use strict; use warnings;
 use local::lib '$dir1';
 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) {
+if (grep { m{^\$quoted_dir} } \@INC) {
   exit 0;
 }
 warn '\@INC is: ', join("\\n", \@INC), "\\n";