Hi Bill Luebker, Thanks for your kind response and our list. I got solved. Actual problem in input arguments. Thanks all again.
Regards, Ramkumar -----Original Message----- From: Bill Luebkert [mailto:[email protected]] Sent: Wednesday, October 07, 2009 4:06 AM To: [email protected] Cc: [email protected] Subject: Re: Error on Perl Module File-Find-Rule when run .pl/and create exe 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
