[PATCH] Fix test failures when the build directory contains regexp metacharacters.
Niko Tyni
ntyni at debian.org
Wed Apr 28 18:23:07 UTC 2010
The build directory name may contain regexp metacharacters like '+'
that need escaping or they break the substitution.
---
lib/Devel/Cover.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/Devel/Cover.pm b/lib/Devel/Cover.pm
index d9f2b4b..ae8e140 100644
--- a/lib/Devel/Cover.pm
+++ b/lib/Devel/Cover.pm
@@ -441,7 +441,7 @@ sub normalised_file
# print STDERR "finally <$file> <$Dir>\n";
}
$file =~ s|\\|/|g if $^O eq "MSWin32";
- $file =~ s|^$Dir/||;
+ $file =~ s|^\Q$Dir\E/||;
# print STDERR "File: $f => $file\n";
--
1.7.0.4
--T4sUOijqQbZv57TR--
More information about the pkg-perl-maintainers
mailing list