From dougm@apache.org  Fri Jan  5 05:42:20 2001
Return-Path: <dougm@apache.org>
Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm
Delivered-To: mailing list modperl-cvs@apache.org
Received: (qmail 36053 invoked by uid 1066); 5 Jan 2001 05:42:20 -0000
Date: 5 Jan 2001 05:42:20 -0000
Message-ID: <20010105054220.36052.qmail@apache.org>
From: dougm@apache.org
To: modperl-cvs@apache.org
Subject: 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 <ken@forum.swarthmore.edu>]
  +
   win32 updates for 1.3.15, including ApacheModulePerl.{dsp,dll} ->
   mod_perl.{dsp,so} rename
   [John K. Sterling <sterling@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;
       }