diff options
| author | David Mitchell <davem@iabyn.com> | 2015-06-18 17:51:40 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2015-06-18 18:15:30 +0100 |
| commit | 1a74a75d15cf728f25463c9ddb257634fa022be7 (patch) | |
| tree | 126049818a72aa07922dcd1363219490a799d324 /cpan | |
| parent | 047c3ca7cc8e88b74f0fd245fe08c210d4084fa4 (diff) | |
| download | perl-1a74a75d15cf728f25463c9ddb257634fa022be7.tar.gz | |
autodie/t/mkdir.t: escape build dir path
This test file creates a regex which includes the path of the build
directory. If that path includes regex metachars (e.g. blead_g++_quick)
then the test fails. Easily fixed with \Q...\E.
Monkey-patching here rather than waiting for upstream, since this is
currently breaking blead g++ smokes.
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/autodie/t/mkdir.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/autodie/t/mkdir.t b/cpan/autodie/t/mkdir.t index a5586bed34..3606f7e170 100644 --- a/cpan/autodie/t/mkdir.t +++ b/cpan/autodie/t/mkdir.t @@ -3,8 +3,8 @@ use strict; use Test::More; use FindBin qw($Bin); use constant TMPDIR => "$Bin/mkdir_test_delete_me"; -use constant ERROR_REGEXP => qr{Can't mkdir\('${\(TMPDIR)}', 0777\):}; -use constant SINGLE_DIGIT_ERROR_REGEXP => qr{Can't mkdir\('${\(TMPDIR)}', 0010\):}; +use constant ERROR_REGEXP => qr{Can't mkdir\('\Q${\(TMPDIR)}\E', 0777\):}; +use constant SINGLE_DIGIT_ERROR_REGEXP => qr{Can't mkdir\('\Q${\(TMPDIR)}\E', 0010\):}; # Delete our directory if it's there rmdir TMPDIR; |