[svn:parrot] r46712 - trunk/src/ops

[plobsing at svn.parrot.org]

Author: plobsing
Date: Sun May 16 16:50:00 2010
New Revision: 46712
URL: https://trac.parrot.org/parrot/changeset/46712

Log:
update string clone for stringnull

Modified:
   trunk/src/ops/set.ops

Modified: trunk/src/ops/set.ops
==============================================================================
--- trunk/src/ops/set.ops	Sun May 16 16:22:53 2010	(r46711)
+++ trunk/src/ops/set.ops	Sun May 16 16:50:00 2010	(r46712)
@@ -26,9 +26,9 @@
 
 inline op clone(out STR, in STR) :base_mem {
     /* cloning a NULL STRING produces an empty STRING; TT #964 */
-    $1 = $2
-       ? $2
-       : Parrot_str_new(interp, NULL, 0);
+    $1 = STRING_IS_NULL($2)
+       ? Parrot_str_new(interp, NULL, 0)
+       : $2;
 }