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

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Oct  6 15:39:09 2010
New Revision: 63433

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63433
Log:
Refresh path-regexp.patch.

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

Modified: trunk/libdevel-cover-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-cover-perl/debian/changelog?rev=63433&op=diff
==============================================================================
--- trunk/libdevel-cover-perl/debian/changelog (original)
+++ trunk/libdevel-cover-perl/debian/changelog Wed Oct  6 15:39:09 2010
@@ -6,6 +6,7 @@
 
   [ gregor herrmann ]
   * New upstream release 0.73.
+  * Refresh path-regexp.patch.
 
  -- gregor herrmann <gregoa at debian.org>  Wed, 06 Oct 2010 17:24:23 +0200
 

Modified: 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=63433&op=diff
==============================================================================
--- trunk/libdevel-cover-perl/debian/patches/path-regexp.patch (original)
+++ trunk/libdevel-cover-perl/debian/patches/path-regexp.patch Wed Oct  6 15:39:09 2010
@@ -11,12 +11,12 @@
 
 --- a/lib/Devel/Cover.pm
 +++ b/lib/Devel/Cover.pm
-@@ -448,7 +448,7 @@
+@@ -457,7 +457,7 @@
          # print STDERR "finally <$file> <$Dir>\n";
      }
      $file =~ s|\\|/|g if $^O eq "MSWin32";
--    $file =~ s|^$Dir/||;
-+    $file =~ s|^\Q$Dir\E/||;
+-    $file =~ s|^$Dir/|| if defined $Dir;
++    $file =~ s|^\Q$Dir\E/|| if defined $Dir;
  
      # print STDERR "File: $f => $file\n";