remove unix-style directory separator from regex (DOH!)

diff --git a/Changes b/Changes
index 18581da..2dac9b0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for local::lib
 
+        - see 1.008019 through 1.008021
+
 1.008021   2013-10-04 (development release, unindexed)
         - yet another attempt to overcome win32 testing issues (paths with
           spaces, backslashes)

diff --git a/t/taint-mode.t b/t/taint-mode.t
index ae73f7f..3f6565e 100644 (file)
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -32,7 +32,7 @@ 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";