Skip Menu |
 

This queue is for tickets about the Path-Class CPAN distribution.

Maintainer(s)' notes

I prefer that bugs & patches are filed on GitHub rather than on RT: https://github.com/kenahoo/Path-Class/issues. Thanks.

Report information
The Basics
Id: 48612
Status: resolved
Priority: 0/
Queue: Path-Class

People
Owner: Nobody in particular
Requestors: arthas [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.17
Fixed in: (no value)



Subject: recurse() STILL behaves incorrecly with files named "0" or "0.0"
Download (untitled) / with headers
text/plain 721b
This critical bug was resolved in 0.17 but only for next() - if you use recurse() you still have the problem that files/directories name "0" or "0.0" will END the recursion. It's children() that needs to be patched as follows: --- /usr/lib/perl5/vendor_perl/5.10.0/Path/Class/Dir.pm 2009-08-08 18:12:31.000000000 +0200 +++ Dir.pm 2009-08-11 10:33:00.000000000 +0200 @@ -173,7 +173,7 @@ my $dh = $self->open or Carp::croak( "Can't open directory $self: $!" ); my @out; - while (my $entry = $dh->read) { + while (defined (my $entry = $dh->read)) { # XXX What's the right cross-platform way to do this? next if (!$opts{all} && ($entry eq '.' || $entry eq '..')); push @out, $self->file($entry);
Seeing the same problem and concur wrt the solution posted here.
Thanks - fixed in version 0.18.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.