[svn:parrot] r39410 - trunk/src

[chromatic at svn.parrot.org]

Author: chromatic
Date: Fri Jun  5 23:06:28 2009
New Revision: 39410
URL: https://trac.parrot.org/parrot/changeset/39410

Log:
[src] Freed PackFile members that might get overlooked.

Modified:
   trunk/src/packfile.c

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	Fri Jun  5 23:05:58 2009	(r39409)
+++ trunk/src/packfile.c	Fri Jun  5 23:06:28 2009	(r39410)
@@ -4696,6 +4696,12 @@
         if (!pf)
             Parrot_ex_throw_from_c_args(interp, NULL, 1,
                 "Unable to append PBC to the current directory");
+
+        mem_sys_free(pf->header);
+        pf->header = NULL;
+        mem_sys_free(pf->dirp);
+        pf->dirp   = NULL;
+
     }
     else {
         STRING *err;