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

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Tue May 17 00:14:13 2011
New Revision: 74604

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74604
Log:
Refreshed path-regex.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=74604&op=diff
==============================================================================
--- trunk/libdevel-cover-perl/debian/changelog (original)
+++ trunk/libdevel-cover-perl/debian/changelog Tue May 17 00:14:13 2011
@@ -1,6 +1,7 @@
 libdevel-cover-perl (0.77-1) UNRELEASED; urgency=low
 
   * New upstream release
+  * Refreshed path-regex.patch
 
  -- Nicholas Bamber <nicholas at periapt.co.uk>  Tue, 17 May 2011 01:13:10 +0100
 

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=74604&op=diff
==============================================================================
--- trunk/libdevel-cover-perl/debian/patches/path-regexp.patch (original)
+++ trunk/libdevel-cover-perl/debian/patches/path-regexp.patch Tue May 17 00:14:13 2011
@@ -4,19 +4,19 @@
  that need escaping or they break the substitution.
 Forwarded: no
 Reviewed-by: Nicholas Bamber <nicholas at periapt.co.uk>
-Last-Update: 2011-04-19
+Last-Update: 2011-05-17
 ---
  lib/Devel/Cover.pm |    2 +-
  1 files changed, 1 insertions(+), 1 deletions(-)
 
 --- a/lib/Devel/Cover.pm
 +++ b/lib/Devel/Cover.pm
-@@ -459,7 +459,7 @@
+@@ -469,7 +469,7 @@
          # print STDERR "finally <$file> <$Dir>\n";
      }
      $file =~ s|\\|/|g if $^O eq "MSWin32";
 -    $file =~ s|^$Dir/|| if defined $Dir;
 +    $file =~ s|^\Q$Dir\E/|| if defined $Dir;
  
-     # print STDERR "File: $f => $file\n";
- 
+     $Digests ||= Devel::Cover::DB::Digests->new(db => $DB);
+     $file = $Digests->canonical_file($file);