From: Karen Etheridge <ether@cpan.org>
Date: Sun, 15 Sep 2013 19:40:05 +0000 (-0700)
Subject: escape the backslashes in win32 paths; print the lib dir for diagnosing mysterious... 
X-Git-Tag: 1.008018~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Flocal-lib.git;a=commitdiff_plain;h=076f72d98a2d019b81af342fe9689d4ab7b90007

escape the backslashes in win32 paths; print the lib dir for diagnosing mysterious failures
---

diff --git a/t/taint-mode.t b/t/taint-mode.t
index d4f773a..3561e0c 100644
--- a/t/taint-mode.t
+++ b/t/taint-mode.t
@@ -22,12 +22,16 @@ local::lib->import($dir1);
 # local lib to the same temp dir.
 my ($fh, $filename) = tempfile('test_local_lib-XXXXX', DIR => Cwd::abs_path('t'), UNLINK => 1);
 
+# escape backlslashes for embedding into generated script
+$dir1 =~ s/\\/\\\\/g;
+
 print $fh <<EOM;
 #!/usr/bin/perl -T
 use strict; use warnings;
 use local::lib '$dir1';
-my \$dir1 = '$dir1';
-if (grep { m{^\\Q\$dir1\\E/} } \@INC) {
+warn 'using lib dir $dir1', "\n";
+my \$dir = '$dir1';
+if (grep { m{^\\Q\$dir\\E/} } \@INC) {
   exit 0;
 }
 exit 1