| Subject: | File::Find::Object fails traversing /tmp (probably because of un-scannable directories). |
When running the following script:
<<<<<<<<<<<<
#!/usr/bin/perl
use strict;
use warnings;
use File::Find::Object;
my $tree = File::Find::Object->new({}, '/tmp');
while (my $r = $tree->next()) {
print $r ."\n";
}
Show quoted text
>>>>>>>>>>>>
File::Find::Object crashes with a message ending with:
<<<<<<<<<<<<
Current is undef at lib/File/Find/Object.pm line 131
File::Find::Object::_father('File::Find::Object=HASH(0x806aba0)',
undef) called at lib/File/Find/Object.pm line 151
File::Find::Object::_movenext_with_current('File::Find::Object=HASH(0x806aba0)')
called at lib/File/Find/Object.pm line 205
File::Find::Object::_movenext('File::Find::Object=HASH(0x806aba0)')
called at lib/File/Find/Object.pm line 114
File::Find::Object::next('File::Find::Object=HASH(0x806aba0)')
called at /home/shlomi/Test.pl line 10
Show quoted text>>>>>>>>>>>>
It seems that it tries to scan /tmp/.esd-520 which is unreadable.
( Originally reported in a different bug 33453 by Sergey V Panteleev )
Regards,
Shlomi Fish