Mailing List Archive

This was a small oversight when PerlRun underwent its recent overhaul
(hm, was it over or under?). Fix is below.


===================================================================
--- lib/Apache/PerlRun.pm 2000/09/28 19:59:36 1.31
+++ lib/Apache/PerlRun.pm 2001/01/03 22:11:07
@@ -209,7 +209,7 @@
my $pr = shift;
if ($@ and substr($@,0,4) ne " at ") {
$pr->{r}->log_error("PerlRun: `$@'");
- $@{$pr->uri} = $@;
+ $@{$pr->{r}->uri} = $@;
$@ = ''; #XXX fix me, if we don't do this Apache::exit() breaks
return SERVER_ERROR;
}
===================================================================



------------------- -------------------
Ken Williams Last Bastion of Euclidity
ken@forum.swarthmore.edu The Math Forum