Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (asf.osuosl.org: local policy)
Message-ID: <002b01c617a6$4660d940$6601a8c0@clarkconnect.lan>
From: "Mike OK" <mike_tmp@acorg.com>
To: "LUKE" <luke@tc.program.com.tw>, <modperl@perl.apache.org>
References: <43C583A2.4010405@physicianstotalcare.com>
 <43C587B4.8000802@gallien.net> <002901c61799$701160a0$0c01a8c0@lukeshei>
Subject: Re: -M in modperl
Date: Thu, 12 Jan 2006 13:30:33 -0500
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

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" <luke@tc.program.com.tw>
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
>
>