PS: I ran this on XP Pro, Perl 5.8.8 B820 and it didn't get any
errors and filled the array with a list of modules in $imagepath
recursively:
use strict;
use warnings;
use Array::Unique;
use File::Find::Rule;
use Data::Dumper; $Data::Dumper::Indent=1; $Data::Dumper::Sortkeys=1;
my @img_file = ();
tie @img_file, 'Array::Unique';
my $imagepath = shift || './pm'; # default to PM dir
my @imgfolder = File::Find::Rule->file()->name('*.*')->in($imagepath);
print Data::Dumper->Dump([...@imgfolder], [qw(@imgfolder)]);
# remaining code deleted as unlikely cause of problem
__END__
A bad $imagepath just yields an empty array, so unless it's a
problem specific to 5.10 (or whatever build you may be on), I
don't see it. Maybe you could try that and give us your OS
and Perl build.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
