include the expected location in the test name, for diagnosing mysterious failures

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

diff --git a/t/taint-mode.t b/t/taint-mode.t
index 94392cf..d4f773a 100644 (file)
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -26,8 +26,8 @@ print $fh <<EOM;
 #!/usr/bin/perl -T
 use strict; use warnings;
 use local::lib '$dir1';
-my \$dir1 = "$dir1";
-if (grep { \$_ =~ m{^\$dir1/} } \@INC) {
+my \$dir1 = '$dir1';
+if (grep { m{^\\Q\$dir1\\E/} } \@INC) {
   exit 0;
 }
 exit 1