cvs commit: ponie/perl pp_hot.c

cvsuser     04/10/11 09:26:14

  Modified:    perl     pp_hot.c
  Log:
  Now that the PV and RV slots are not the same, need to reset SvPVX in
  Perl_vivify_ref to avoid spurious double free()s
  
  Revision  Changes    Path
  1.6       +1 -0      ponie/perl/pp_hot.c
  
  Index: pp_hot.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/pp_hot.c,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -w -r1.5 -r1.6
  --- pp_hot.c	23 Jun 2004 10:54:24 -0000	1.5
  +++ pp_hot.c	11 Oct 2004 16:26:14 -0000	1.6
  @@ -2916,6 +2916,7 @@
   	else if (SvTYPE(sv) >= SVt_PV) {
   	    (void)SvOOK_off(sv);
   	    Safefree(SvPVX(sv));
  +	    SvPVX(sv) = 0;
   	    SvLEN(sv) = SvCUR(sv) = 0;
   	}
   	switch (to_what) {