perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@locus.apache.org
Subject cvs commit: modperl/src/modules/perl Apache.xs
Date Thu, 13 Apr 2000 18:43:24 GMT
dougm       00/04/13 11:43:24

  Modified:    .        Changes
               src/modules/perl Apache.xs
  Log:
  fix PerlSetVar inheritance bug
  
  Revision  Changes    Path
  1.468     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.467
  retrieving revision 1.468
  diff -u -r1.467 -r1.468
  --- Changes	2000/04/13 06:07:32	1.467
  +++ Changes	2000/04/13 18:43:21	1.468
  @@ -10,6 +10,9 @@
   
   =item 1.22_01-dev
   
  +fix PerlSetVar inheritance bug
  +[Sander van Zoest <sander@vanzoest.com>]
  +
   set r->notes("error-notes") to $@ if $@ after a Perl*Handlers is run
   [Doug / Tom Mornini <tmornini@infomania.com>]
   
  
  
  
  1.95      +1 -1      modperl/src/modules/perl/Apache.xs
  
  Index: Apache.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
  retrieving revision 1.94
  retrieving revision 1.95
  diff -u -r1.94 -r1.95
  --- Apache.xs	2000/04/05 04:55:55	1.94
  +++ Apache.xs	2000/04/13 18:43:23	1.95
  @@ -1929,7 +1929,7 @@
   	TABLE_GET_SET(c->vars, FALSE);
       }
       if (!SvTRUE(RETVAL)) {
  -	s = r ? r->server : perl_get_startup_server();
  +	s = r && r->server ? r->server : perl_get_startup_server();
   	if (s && s->module_config) {
   	    SvREFCNT_dec(RETVAL); /* in case above did newSV(0) */
   	    cs = (perl_server_config *)get_module_config(s->module_config, 
  
  
  

Mime
View raw message