r4183 - in /packages/libfile-find-rule-perl/trunk: debian/changelog lib/File/Find/Rule.pm

[gwolf at users.alioth.debian.org]

Author: gwolf
Date: Thu Nov  2 21:04:14 2006
New Revision: 4183

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4183
Log:
Applied Niko's patch for handling sequential slashes

Modified:
    packages/libfile-find-rule-perl/trunk/debian/changelog
    packages/libfile-find-rule-perl/trunk/lib/File/Find/Rule.pm

Modified: packages/libfile-find-rule-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-find-rule-perl/trunk/debian/changelog?rev=4183&op=diff
==============================================================================
--- packages/libfile-find-rule-perl/trunk/debian/changelog (original)
+++ packages/libfile-find-rule-perl/trunk/debian/changelog Thu Nov  2 21:04:14 2006
@@ -1,3 +1,11 @@
+libfile-find-rule-perl (0.30-2) unstable; urgency=low
+
+  * Applied Niko Tyni's patch fixing incorrect handling of sequential
+    patches - Upstream still has to formally apply/reject it (Closes:
+    #329377)
+
+ -- Gunnar Wolf <gwolf at debian.org>  Thu,  2 Nov 2006 14:02:19 -0600
+
 libfile-find-rule-perl (0.30-1) unstable; urgency=low
 
   * New upstream release.

Modified: packages/libfile-find-rule-perl/trunk/lib/File/Find/Rule.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-find-rule-perl/trunk/lib/File/Find/Rule.pm?rev=4183&op=diff
==============================================================================
--- packages/libfile-find-rule-perl/trunk/lib/File/Find/Rule.pm (original)
+++ packages/libfile-find-rule-perl/trunk/lib/File/Find/Rule.pm Thu Nov  2 21:04:14 2006
@@ -541,6 +541,7 @@
     my $topdir;
     my $code = 'sub {
         (my $path = $File::Find::name)  =~ s#^(?:\./+)+##;
+        $path = "." if ($path eq ""); # See Debian bug #329377
         my @args = ($_, $File::Find::dir, $path);
         my $maxdepth = $self->{maxdepth};
         my $mindepth = $self->{mindepth};