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);
}
