cvs commit: modperl-2.0/src/modules/perl modperl_util.c

[dougm]

dougm       02/01/07 17:29:23

  Modified:    src/modules/perl modperl_util.c
  Log:
  plug leaking Apache::Table objects
  
  Revision  Changes    Path
  1.33      +1 -1      modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.32
  retrieving revision 1.33
  diff -u -r1.32 -r1.33
  --- modperl_util.c    14 Dec 2001 04:35:28 -0000      1.32
  +++ modperl_util.c    8 Jan 2002 01:29:23 -0000       1.33
  @@ -367,7 +367,7 @@
                                  SV *tsv, void *p)
   {
       SV *hv = (SV*)newHV();
  -    SV *rsv = newSViv(0);
  +    SV *rsv = sv_newmortal();
   
       sv_setref_pv(rsv, classname, p);
       sv_magic(hv, rsv, PERL_MAGIC_tied, Nullch, 0);