cvs commit: ponie/perl malloc.c

cvsuser     05/05/11 11:03:59

  Modified:    perl     malloc.c
  Log:
  Need a couple more _set() changes to make malloc.c compile.
  
  Revision  Changes    Path
  1.3       +2 -1      ponie/perl/malloc.c
  
  Index: malloc.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/malloc.c,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- malloc.c	19 Apr 2005 19:04:13 -0000	1.2
  +++ malloc.c	11 May 2005 18:03:59 -0000	1.3
  @@ -1176,7 +1176,8 @@
   
       SvPOK_off(sv);
       SvPV_set(sv, Nullch);
  -    SvCUR(sv) = SvLEN(sv) = 0;
  +    SvCUR_set(sv, 0);
  +    SvLEN_set(sv, 0);
       *size = malloced_size(pv) + M_OVERHEAD;
       return pv - sizeof(union overhead);
   }