r57075 - in /trunk/libdevel-cover-perl/debian: changelog patches/path-regexp.patch patches/series

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Apr 28 21:52:17 2010
New Revision: 57075

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57075
Log:
Add new patch to fix build issues when the build path contains regexp
metacharacters; thanks to Niko Tyni for bug report and patch
(closes: #579577).

Added:
    trunk/libdevel-cover-perl/debian/patches/path-regexp.patch
Modified:
    trunk/libdevel-cover-perl/debian/changelog
    trunk/libdevel-cover-perl/debian/patches/series

Modified: trunk/libdevel-cover-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-cover-perl/debian/changelog?rev=57075&op=diff
==============================================================================
--- trunk/libdevel-cover-perl/debian/changelog (original)
+++ trunk/libdevel-cover-perl/debian/changelog Wed Apr 28 21:52:17 2010
@@ -1,3 +1,11 @@
+libdevel-cover-perl (0.66-2) UNRELEASED; urgency=low
+
+  * Add new patch to fix build issues when the build path contains regexp
+    metacharacters; thanks to Niko Tyni for bug report and patch
+    (closes: #579577).
+
+ -- gregor herrmann <gregoa at debian.org>  Wed, 28 Apr 2010 23:49:45 +0200
+
 libdevel-cover-perl (0.66-1) unstable; urgency=low
 
   [ Ryan Niebur ]

Added: trunk/libdevel-cover-perl/debian/patches/path-regexp.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-cover-perl/debian/patches/path-regexp.patch?rev=57075&op=file
==============================================================================
--- trunk/libdevel-cover-perl/debian/patches/path-regexp.patch (added)
+++ trunk/libdevel-cover-perl/debian/patches/path-regexp.patch Wed Apr 28 21:52:17 2010
@@ -1,0 +1,22 @@
+From a3df3ec500224fa99ee357eef585eac1f22a3cd4 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Wed, 28 Apr 2010 21:23:07 +0300
+Subject: [PATCH] Fix test failures when the build directory contains regexp metacharacters.
+
+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(-)
+
+--- a/lib/Devel/Cover.pm
++++ b/lib/Devel/Cover.pm
+@@ -441,7 +441,7 @@
+         # 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";
+ 

Modified: trunk/libdevel-cover-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-cover-perl/debian/patches/series?rev=57075&op=diff
==============================================================================
--- trunk/libdevel-cover-perl/debian/patches/series (original)
+++ trunk/libdevel-cover-perl/debian/patches/series Wed Apr 28 21:52:17 2010
@@ -1,3 +1,4 @@
 keep-non-existent-dirs-in-INC.patch
 whatis.patch
 spelling.patch
+path-regexp.patch