cvs commit: modperl/src/modules/perl Apache.xs

[dougm]

dougm       00/08/30 20:39:45

  Modified:    .        Changes
               src/modules/perl Apache.xs
  Log:
  fix refcnt bug in $r->get_handlers
  
  Revision  Changes    Path
  1.508     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.507
  retrieving revision 1.508
  diff -u -r1.507 -r1.508
  --- Changes   2000/08/31 03:38:35     1.507
  +++ Changes   2000/08/31 03:39:44     1.508
  @@ -10,6 +10,9 @@
   
   =item 1.24_01-dev
   
  +fix refcnt bug in $r->get_handlers,
  +thanks Geoffrey Young for the spot
  +
   add PerlCleanupHandler to the {get,set}_handlers table,
   thanks Geoffrey Young for the spot
   
  
  
  
  1.105     +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.104
  retrieving revision 1.105
  diff -u -r1.104 -r1.105
  --- Apache.xs 2000/08/31 03:38:36     1.104
  +++ Apache.xs 2000/08/31 03:39:45     1.105
  @@ -130,7 +130,7 @@
       base = (AV*)SvRV(*svp);
       for(i=0; i<=AvFILL(base); i++) { 
        SV *sv = *av_fetch(base, i, FALSE);
  -     av_push(*dest, sv);
  +     av_push(*dest, SvREFCNT_inc(sv));
       }
   }