From: Karen Etheridge Date: Mon, 7 Oct 2013 17:06:20 +0000 (-0700) Subject: remove unix-style directory separator from regex (DOH!) X-Git-Tag: 1.008022~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Flocal-lib.git;a=commitdiff_plain;h=f7f543d99d614ed805d3723009ef0f18abdc632f remove unix-style directory separator from regex (DOH!) --- diff --git a/Changes b/Changes index 18581da..2dac9b0 100644 --- 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 --- 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";