cvs commit: ponie/src/pmc perl5cargo_cult.pmc

cvsuser     04/05/05 14:08:26

  Modified:    src/pmc  perl5cargo_cult.pmc
  Log:
  Without these I assume that we're leaking like a sieve.
  [ But some sieves are surprisingly sea-worthy
    http://eserver.org/poetry/jumblies.txt :-) ]
  
  Revision  Changes    Path
  1.5       +3 -1      ponie/src/pmc/perl5cargo_cult.pmc
  
  Index: perl5cargo_cult.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5cargo_cult.pmc,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -w -r1.4 -r1.5
  --- perl5cargo_cult.pmc	5 May 2004 19:44:35 -0000	1.4
  +++ perl5cargo_cult.pmc	5 May 2004 21:08:26 -0000	1.5
  @@ -1,7 +1,7 @@
   /* Perl5QQQ.pmc -*- c -*-
    *  Copyright: 2001-2004 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: perl5cargo_cult.pmc,v 1.4 2004/05/05 19:44:35 nicholas Exp $
  + *     $Id: perl5cargo_cult.pmc,v 1.5 2004/05/05 21:08:26 nicholas Exp $
    *  Overview:
    *     These are the vtable functions for the Perl5QQQ base class
    *  Data Structure and Algorithms:
  @@ -36,6 +36,7 @@
   pmclass Perl5QQQ need_ext {
   
       void init () {	
  +        PObj_active_destroy_SET(SELF);
   	PMC_data(SELF) = malloc(sizeof(struct xqqq));
       }
   
  @@ -59,6 +60,7 @@
       }
   
       void destroy () {
  +        free(PMC_data(SELF));
       }
   
       PMC* getprop (STRING* key) {