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

[dougm]

dougm       02/01/08 11:04:22

  Modified:    src/modules/perl modperl_io.c
  Log:
  plug leaking tied STD{IN,OUT} objects
  
  Revision  Changes    Path
  1.6       +2 -0      modperl-2.0/src/modules/perl/modperl_io.c
  
  Index: modperl_io.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- modperl_io.c      6 Jan 2002 21:56:22 -0000       1.5
  +++ modperl_io.c      8 Jan 2002 19:04:22 -0000       1.6
  @@ -42,6 +42,8 @@
       sv_magic((SV*)handle, obj, 'q', Nullch, 0);
       sv_magic((SV*)GvIOp(handle), obj, 'q', Nullch, 0);
   
  +    SvREFCNT_dec(obj); /* since sv_magic did SvREFCNT_inc */
  +
       MP_TRACE_g(MP_FUNC, "tie *%s(0x%lx) => %s, REFCNT=%d\n",
                  GvNAME(handle), (unsigned long)handle, classname,
                  SvREFCNT((SV*)handle));