Bug#329377: libfile-find-rule-perl: incorrect handling of sequential slashes

[Niko Tyni]

tags 329377 upstream patch
forwarded 329377 http://rt.cpan.org/Public/Bug/Display.html?id=19528
thanks

On Wed, Sep 21, 2005 at 03:26:45PM +0200, Gabor Kiss wrote:
> Package: libfile-find-rule-perl
> Version: 0.28-1
> Severity: normal

> You can see, that there is no hit when searching .// and path somehow
> converted to absolute in case of more sequential slashes.

Hi,

the attached patch seems to fix this. I have reported this upstream as
CPAN #19528 [1] and will wait a while for any comments from the upstream
author before including it as a Debian-specific modification.

For reference, the problem is also present in upstream 0.29, which
is not yet packaged for Debian.

[1] http://rt.cpan.org/Public/Bug/Display.html?id=19528

Cheers,
-- 
Niko Tyni	ntyni at iki.fi
-------------- next part --------------
--- File-Find-Rule-0.29/lib/File/Find/Rule.pm	2006-05-16 17:27:00.000000000 +0300
+++ File-Find-Rule-0.29-fixed/lib/File/Find/Rule.pm	2006-05-27 20:19:55.220933683 +0300
@@ -540,7 +540,7 @@
 
     my $topdir;
     my $code = 'sub {
-        (my $path = $File::Find::name)  =~ s#^\./##;
+        (my $path = $File::Find::name)  =~ s#^\./+([^/]+)#$1#;
         my @args = ($_, $File::Find::dir, $path);
         my $maxdepth = $self->{maxdepth};
         my $mindepth = $self->{mindepth};