[svn:parrot] r45101 - branches/shallow_clone/src/pmc

[plobsing at svn.parrot.org]

Author: plobsing
Date: Mon Mar 22 07:05:38 2010
New Revision: 45101
URL: https://trac.parrot.org/parrot/changeset/45101

Log:
make Capture.clone shallow.

tested against NQP-rx and Rakudo

Modified:
   branches/shallow_clone/src/pmc/capture.pmc

Modified: branches/shallow_clone/src/pmc/capture.pmc
==============================================================================
--- branches/shallow_clone/src/pmc/capture.pmc	Mon Mar 22 06:25:36 2010	(r45100)
+++ branches/shallow_clone/src/pmc/capture.pmc	Mon Mar 22 07:05:38 2010	(r45101)
@@ -64,10 +64,6 @@
         PMC *dest = Parrot_pmc_new(INTERP, VTABLE_type(INTERP, SELF));
         GET_ATTR_array(INTERP, SELF, array);
         GET_ATTR_hash(INTERP, SELF, hash);
-        if (array)
-             array = VTABLE_clone(INTERP, array);
-        if (hash)
-             hash = VTABLE_clone(INTERP, hash);
         SET_ATTR_array(INTERP, dest, array);
         SET_ATTR_hash(INTERP, dest, hash);