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...@hyperreal.org on 1999/07/03 01:08:04 UTC

cvs commit: modperl/src/modules/perl perl_config.c

dougm       99/07/02 16:08:04

  Modified:    .        Changes
               src/modules/perl perl_config.c
  Log:
  fix refcount bug in %VirtualHost [] values
  
  Revision  Changes    Path
  1.318     +5 -1      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.317
  retrieving revision 1.318
  diff -u -r1.317 -r1.318
  --- Changes	1999/07/02 22:20:01	1.317
  +++ Changes	1999/07/02 23:08:02	1.318
  @@ -8,11 +8,15 @@
   
   =item 1.20_01-dev
   
  +fix refcount bug in %VirtualHost [] values, thanks to Pete Ehlke for
  +the spot
  +
   get rid of a warning in Apache::test [Joshua Chamas <jo...@chamas.com>]
   
   $r->read will now properly check the return value of
   ap_setup_client_block() and return undef if != OK,
  -e.g. if LimitRequestBody is exceeded
  +e.g. if LimitRequestBody is exceeded, thanks to Joshua Chamas for the
  +spot and testing
   
   loosen module/cookie tests
   
  
  
  
  1.75      +1 -1      modperl/src/modules/perl/perl_config.c
  
  Index: perl_config.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/perl_config.c,v
  retrieving revision 1.74
  retrieving revision 1.75
  diff -u -r1.74 -r1.75
  --- perl_config.c	1999/06/04 20:42:57	1.74
  +++ perl_config.c	1999/07/02 23:08:04	1.75
  @@ -1056,7 +1056,7 @@
           if(!SvROK(rv) || (SvTYPE(SvRV(rv)) != SVt_PVHV)) \
      	    croak("not a HASH reference!"); \
           nhv = newHV(); \
  -        hv_store(nhv, (char*)key, klen, rv, FALSE); \
  +        hv_store(nhv, (char*)key, klen, SvREFCNT_inc(rv), FALSE); \
           tab = nhv; \
           t; \
           SvREFCNT_dec(nhv); \