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 do...@apache.org on 2001/01/05 06:42:20 UTC
cvs commit: modperl/lib/Apache PerlRun.pm
dougm 01/01/04 21:42:19
Modified: . Changes
lib/Apache PerlRun.pm
Log:
fix Apache::PerlRun is-a -> has-a Apache relationship change oversight
Revision Changes Path
1.568 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.567
retrieving revision 1.568
diff -u -r1.567 -r1.568
--- Changes 2000/12/31 19:34:15 1.567
+++ Changes 2001/01/05 05:42:19 1.568
@@ -10,6 +10,9 @@
=item 1.24_02-dev
+fix Apache::PerlRun is-a -> has-a Apache relationship change oversight
+[Ken Williams <ke...@forum.swarthmore.edu>]
+
win32 updates for 1.3.15, including ApacheModulePerl.{dsp,dll} ->
mod_perl.{dsp,so} rename
[John K. Sterling <st...@covalent.net>,
1.32 +1 -1 modperl/lib/Apache/PerlRun.pm
Index: PerlRun.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- PerlRun.pm 2000/09/28 19:59:36 1.31
+++ PerlRun.pm 2001/01/05 05:42:19 1.32
@@ -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;
}