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

[dougm]

dougm       02/01/07 16:04:33

  Modified:    src/modules/perl modperl_filter.c
  Log:
  fix leak where Apache::Filter objects needlessly contained a reference loop
  
  Revision  Changes    Path
  1.29      +1 -1      modperl-2.0/src/modules/perl/modperl_filter.c
  
  Index: modperl_filter.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_filter.c,v
  retrieving revision 1.28
  retrieving revision 1.29
  diff -u -r1.28 -r1.29
  --- modperl_filter.c  21 Oct 2001 22:11:34 -0000      1.28
  +++ modperl_filter.c  8 Jan 2002 00:04:33 -0000       1.29
  @@ -103,7 +103,7 @@
   
   static void modperl_filter_mg_set(pTHX_ SV *obj, modperl_filter_t *filter)
   {
  -    sv_magic(SvRV(obj), obj, '~', NULL, 0);
  +    sv_magic(SvRV(obj), Nullsv, '~', NULL, -1);
       SvMAGIC(SvRV(obj))->mg_ptr = (char *)filter;
   }