cvs commit: parrot/src string.c

[Leopold Toetsch]

cvsuser     04/08/10 04:05:12

  Modified:    src      string.c
  Log:
  fix another COW bug WRT sysmem string memory
  
  Revision  Changes    Path
  1.214     +2 -1      parrot/src/string.c
  
  Index: string.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/string.c,v
  retrieving revision 1.213
  retrieving revision 1.214
  diff -u -w -r1.213 -r1.214
  --- string.c  7 Aug 2004 11:32:27 -0000       1.213
  +++ string.c  10 Aug 2004 11:05:11 -0000      1.214
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: string.c,v 1.213 2004/08/07 11:32:27 leo Exp $
  +$Id: string.c,v 1.214 2004/08/10 11:05:11 leo Exp $
   
   =head1 NAME
   
  @@ -155,6 +155,7 @@
           d = new_string_header(interpreter, PObj_get_FLAGS(s));
           PObj_COW_SET(s);
           copy_string_header(interpreter, d, s);
  +        PObj_sysmem_CLEAR(d);
       }
       return d;
   }