From: Karen Etheridge <ether@cpan.org>
Date: Sat, 14 Sep 2013 16:48:45 +0000 (-0700)
Subject: avoid interpolation of backslashed chars in windows paths
X-Git-Tag: 1.008017~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19e2f061febaf3ba7b8da4d3fdeab83cc3bcd57c;p=p5sagit%2Flocal-lib.git

avoid interpolation of backslashed chars in windows paths
---

diff --git a/Changes b/Changes
index 3fe569e..2b4ebf4 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for local::lib
 
+        - avoid "Unrecognized escape \s passed through" errors on win32
+          (again)
+
 1.008016   2013-09-13
         - avoid "Unrecognized escape \s passed through" errors on win32
 
diff --git a/t/taint-mode.t b/t/taint-mode.t
index cc7233c..d4f773a 100644
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -26,7 +26,7 @@ print $fh <<EOM;
 #!/usr/bin/perl -T
 use strict; use warnings;
 use local::lib '$dir1';
-my \$dir1 = "$dir1";
+my \$dir1 = '$dir1';
 if (grep { m{^\\Q\$dir1\\E/} } \@INC) {
   exit 0;
 }