develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33819 - trunk/src

From:
cotto
Date:
December 11, 2008 16:22
Subject:
[svn:parrot] r33819 - trunk/src
Message ID:
20081212002212.DA6D8CB9AF@x12.develooper.com
Author: cotto
Date: Thu Dec 11 16:22:12 2008
New Revision: 33819

Modified:
   trunk/src/debug.c

Log:
[debug] close a leaked filehandle (CID #176)


Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	(original)
+++ trunk/src/debug.c	Thu Dec 11 16:22:12 2008
@@ -2881,6 +2881,8 @@
         }
     }
 
+    fclose(file);
+
     pdb->state |= PDB_SRC_LOADED;
     pdb->file   = pfile;
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About