You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by sb...@hyperreal.org on 1998/12/20 18:24:35 UTC
cvs commit: modperl/lib/Apache StatINC.pm
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;
}