From e17f8ddb46763de2ed27a315aa20404ade29a425 Mon Sep 17 00:00:00 2001
From: Pierre Pronchery <khorben@defora.org>
Date: Sat, 23 Apr 2011 19:44:51 +0000
Subject: [PATCH] Fixed double fclose()

---
 src/code.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/code.c b/src/code.c
index e537c05..f198ee3 100644
--- a/src/code.c
+++ b/src/code.c
@@ -123,6 +123,7 @@ int code_close(Code * code)
 	if(fclose(code->fp) != 0 && ret == 0)
 		ret |= -error_set_code(1, "%s: %s", code->filename,
 				strerror(errno));
+	code->fp = NULL;
 	return ret;
 }