[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