Error on Perl Module File-Find-Rule when run .pl/and create exe

[Ramkumar]

 
Hi List,

I am facing module error when run the perl file.

I am using perl version 5.8.8

Module File-Find-Rule installed on site area in my system.

Part of my Perl code:
======================
        use File::Find::Rule;
        my @img_file;
        tie @img_file, 'Array::Unique';

@imgfolder = File::Find::Rule->file()->name('*.*')->in($imagepath);

foreach my $temp(@imgfolder)
{$temp=~s/\Q$imagepath\/\E//gi;push(@img_folder,$temp);}
my $flag;
for(my $i=0; $i<=scalar(@img_file);$i++)
{
        for(my $j=0; $j<=scalar(@img_folder);$j++)
        {
                if(@img_file[$i] eq @img_folder[$j])
                {$flag=1;}
        }
        if($flag==0){push(@difference,@img_file[$i]);}
        $flag=0;
}

Error While run:
=================
invalid top directory at C:/Perl/lib/File/Find.pm line 592

Note:
======
On this same path, module 'C:\Perl\lib\File\Find.pm' available. Also the
same Perl ran before some days back, but I am facing the error. 

Please anyone suggest how to solve this one.

Regards,

Ramkumar
R&D - Software Engineer


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs