[svn:parrot] r48806 - trunk/src/string

[nwellnhof at svn.parrot.org]

Author: nwellnhof
Date: Sun Sep  5 23:41:17 2010
New Revision: 48806
URL: https://trac.parrot.org/parrot/changeset/48806

Log:
[str] Set buflen in str_clone

Modified:
   trunk/src/string/api.c

Modified: trunk/src/string/api.c
==============================================================================
--- trunk/src/string/api.c	Sun Sep  5 23:10:40 2010	(r48805)
+++ trunk/src/string/api.c	Sun Sep  5 23:41:17 2010	(r48806)
@@ -355,6 +355,8 @@
     PObj_get_FLAGS(result)  = PObj_is_string_FLAG
                             | PObj_is_COWable_FLAG;
 
+    Buffer_buflen(result) = alloc_size;
+
     /* Allocate new chunk of memory */
     Parrot_gc_allocate_string_storage(interp, result, alloc_size);