[svn:parrot] r27322 - branches/pdd13pbc/src/pmc

[infinoid]

Author: infinoid
Date: Sun May  4 10:12:42 2008
New Revision: 27322

Modified:
   branches/pdd13pbc/src/pmc/packfile.pmc

Log:
[PDD13] Packfile PMCs need the "destroy" bit set, so they can free up 
the underlying PackFile object.


Modified: branches/pdd13pbc/src/pmc/packfile.pmc
==============================================================================
--- branches/pdd13pbc/src/pmc/packfile.pmc      (original)
+++ branches/pdd13pbc/src/pmc/packfile.pmc      Sun May  4 10:12:42 2008
@@ -33,6 +33,7 @@
 
 */
     VTABLE void init() {
+        PObj_active_destroy_SET(SELF);
         PMC_data(SELF) = PackFile_new(interp, 0);
     }