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

[nwellnhof at svn.parrot.org]

Author: nwellnhof
Date: Wed Aug 25 12:05:24 2010
New Revision: 48652
URL: https://trac.parrot.org/parrot/changeset/48652

Log:
Make sure custom_mark flag of captures gets set in pmc_set

Modified:
   trunk/src/pmc/capture.pmc

Modified: trunk/src/pmc/capture.pmc
==============================================================================
--- trunk/src/pmc/capture.pmc	Wed Aug 25 09:11:12 2010	(r48651)
+++ trunk/src/pmc/capture.pmc	Wed Aug 25 12:05:24 2010	(r48652)
@@ -731,6 +731,8 @@
             GET_ATTR_hash(INTERP, capture, hash);
             SET_ATTR_array(INTERP, SELF, array);
             SET_ATTR_hash(INTERP, SELF, hash);
+            if (!PMC_IS_NULL(array) || !PMC_IS_NULL(hash))
+                PObj_custom_mark_SET(SELF);
         }
         else
             Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_INVALID_OPERATION,