[svn:parrot] r39305 - trunk/src/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Jun  1 19:11:28 2009
New Revision: 39305
URL: https://trac.parrot.org/parrot/changeset/39305

Log:
[pmc] fix String.assign_string_native with NULL value, TT #729

Modified:
   trunk/src/pmc/string.pmc

Modified: trunk/src/pmc/string.pmc
==============================================================================
--- trunk/src/pmc/string.pmc	Mon Jun  1 18:31:02 2009	(r39304)
+++ trunk/src/pmc/string.pmc	Mon Jun  1 19:11:28 2009	(r39305)
@@ -259,8 +259,11 @@
 */
 
     VTABLE void assign_string_native(STRING *value) {
-        SET_ATTR_str_val(INTERP, SELF,
-                Parrot_str_set(INTERP, SELF.get_string(), value));
+        if (!STRING_IS_NULL(value))
+            SET_ATTR_str_val(INTERP, SELF,
+                    Parrot_str_set(INTERP, SELF.get_string(), value));
+        else
+            SET_ATTR_str_val(INTERP, SELF, NULL);
     }
 
 /*