From: Karen Etheridge 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?a=commitdiff_plain;h=076f72d98a2d019b81af342fe9689d4ab7b90007;p=p5sagit%2Flocal-lib.git 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 <