dougm 00/09/28 09:35:54 Modified: . Changes lib/Apache PerlRun.pm Registry.pm Log: Apache::{Registry,PerlRun} will now log an error if $filename is NOT_FOUND Revision Changes Path 1.534 +3 -0 modperl/Changes Index: Changes =================================================================== RCS file: /home/cvs/modperl/Changes,v retrieving revision 1.533 retrieving revision 1.534 diff -u -r1.533 -r1.534 --- Changes 2000/09/28 16:19:52 1.533 +++ Changes 2000/09/28 16:35:50 1.534 @@ -10,6 +10,9 @@ =item 1.24_01-dev +Apache::{Registry,PerlRun} will now log an error if $filename is NOT_FOUND +thanks to Martin Wood for the spot + fix bug where Apache::send_http_header was resetting r->status = 200 thanks to brian d foy for the spot 1.30 +1 -0 modperl/lib/Apache/PerlRun.pm Index: PerlRun.pm =================================================================== RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v retrieving revision 1.29 retrieving revision 1.30 diff -u -r1.29 -r1.30 --- PerlRun.pm 2000/06/01 21:07:56 1.29 +++ PerlRun.pm 2000/09/28 16:35:52 1.30 @@ -60,6 +60,7 @@ $pr->{'mtime'} = -M _; return wantarray ? (OK, $pr->{'mtime'}) : OK; } + $pr->log_error("$filename not found or unable to stat"); return NOT_FOUND; } 1.33 +1 -0 modperl/lib/Apache/Registry.pm Index: Registry.pm =================================================================== RCS file: /home/cvs/modperl/lib/Apache/Registry.pm,v retrieving revision 1.32 retrieving revision 1.33 diff -u -r1.32 -r1.33 --- Registry.pm 2000/08/02 15:53:15 1.32 +++ Registry.pm 2000/09/28 16:35:53 1.33 @@ -165,6 +165,7 @@ # } return $r->status($old_status); } else { + $r->log_error("$filename not found or unable to stat"); return NOT_FOUND unless $Debug && $Debug & 2; return Apache::Debug::dump($r, NOT_FOUND); }