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@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs