perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From sbek...@hyperreal.org
Subject cvs commit: modperl/lib/Apache StatINC.pm
Date Sun, 20 Dec 1998 17:24:35 GMT
sbekman     98/12/20 09:24:35

  Modified:    lib/Apache StatINC.pm
  Log:
  Files with relative paths with no path in @INC, quietly failed untill now, confusing the
  developers. Now we issue warn() if this is the case.
  
  Revision  Changes    Path
  1.9       +2 -0      modperl/lib/Apache/StatINC.pm
  
  Index: StatINC.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/lib/Apache/StatINC.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- StatINC.pm	1998/11/05 21:20:07	1.8
  +++ StatINC.pm	1998/12/20 17:24:35	1.9
  @@ -14,6 +14,8 @@
       while(my($key,$file) = each %INC) {
   	local $^W = 0;
   	my $mtime = (stat $file)[9];
  +	  # warn and skip the files with relative paths which can't be locate by applying @INC;
  +	warn "Apache::StatINC: Can't locate $file\n",next unless defined $mtime and $mtime;
   	unless(defined $Stat{$file}) { 
   	    $Stat{$file} = $^T;
   	}
  
  
  

Mime
View raw message