Hi The problem may lie in the kernal itself. I had a similar problem and found that the kernal was to blame. Here is the code I can use in place of the READDIR. Mike
my $name; $file = $file . '/'; if ( -d $file ) { if ( $readdir_hack eq "yes" ) { $directory = $file; $directory = $directory . "*"; @files = <${directory}>; chop $directory; for ( $i = 0; $i < @files; $i++ ) { $files[$i] =~ s/$directory//ig; $name = $files[$i]; if ( $name !~ /\b\.+/ ) { } elsif ( $name =~ /stat$/ ) { $name =~ s/\.stat//; } } } ----- Original Message ----- From: "LUKE" <[EMAIL PROTECTED]> To: <modperl@perl.apache.org> Sent: January 12, 2006 11:58 AM Subject: -M in modperl > opendir( DIR, "/path" ); > my @dots = grep(/recovery/,sort { -M $a <=> -M $b } readdir(DIR)); > closedir(DIR); > > Can not work in mod_perl?? How to solve it?? > > > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.1.371 / Virus Database: 267.14.17/227 - Release Date: 2006-01-11 > >