From: Karen Etheridge <ether@cpan.org>
Date: Fri, 13 Sep 2013 16:29:28 +0000 (-0700)
Subject: quotemeta the path to avoid "Unrecognized escape \s passed through" on win32
X-Git-Tag: 1.008016~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89201d47ae16b04ce438085e386be5fab45e9a48;p=p5sagit%2Flocal-lib.git

quotemeta the path to avoid "Unrecognized escape \s passed through" on win32
---

diff --git a/Changes b/Changes
index b43794a..c7722bf 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for local::lib
 
+        - avoid "Unrecognized escape \s passed through" errors on win32
+
 1.008015   2013-09-12
         - re-release 1.008014 to fix broken MANIFEST
 
diff --git a/t/taint-mode.t b/t/taint-mode.t
index 94392cf..cc7233c 100644
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -27,7 +27,7 @@ print $fh <<EOM;
 use strict; use warnings;
 use local::lib '$dir1';
 my \$dir1 = "$dir1";
-if (grep { \$_ =~ m{^\$dir1/} } \@INC) {
+if (grep { m{^\\Q\$dir1\\E/} } \@INC) {
   exit 0;
 }
 exit 1