X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftaint-mode.t;h=43c01bea50f665b609e0aeaf370df0637e8438e7;hb=8b0f74fc504a43c6d3dae01869f6e5b6933c5131;hp=ae73f7f246b74c8b2ae970d1f9520e0e1c70ee88;hpb=10036864e24a0f17d96d9b9da4e080dfbf4a3597;p=p5sagit%2Flocal-lib.git diff --git a/t/taint-mode.t b/t/taint-mode.t index ae73f7f..43c01be 100644 --- 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";