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

[gozer]

gozer       2004/09/09 16:00:19

  Modified:    src/modules/perl modperl_util.c
  Log:
  using SvREFCNT_dec() on a temporary SV * is overkill, sv_free() is a
  better choice.
  
  Revision  Changes    Path
  1.81      +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.80
  retrieving revision 1.81
  diff -u -r1.80 -r1.81
  --- modperl_util.c    9 Sep 2004 22:16:37 -0000       1.80
  +++ modperl_util.c    9 Sep 2004 23:00:19 -0000       1.81
  @@ -322,7 +322,7 @@
           av_store(av, i, *av_fetch(tmpav, i, 0));
       }
       
  -    SvREFCNT_dec(tmpav);
  +    sv_free((SV *)tmpav);
   }
   
   static void modperl_package_unload_dynamic(pTHX_ const char *package,