X-Git-Url: https://git.llucax.com/z.facultad/75.06/jacu.git/blobdiff_plain/6275c5b9e211275c0ce1c8474ea68c349fd5f64c..4c56e227e8a6bf6acb612b95a66f39b2abb7faca:/src/statichuff/statichuff.c

diff --git a/src/statichuff/statichuff.c b/src/statichuff/statichuff.c
index 0632e36..797ca17 100644
--- a/src/statichuff/statichuff.c
+++ b/src/statichuff/statichuff.c
@@ -237,7 +237,10 @@ int shuff_encode_symbols(HUFF_STATE *shuff, SHUFFCODE *ctable)
 	SHUFFCODE symbolcode;
 		
 	/* Abrimos el source y el destino */
-	if (shuff->coderfp != NULL) fclose(shuff->coderfp); /* close bychunk temp file */
+	if (shuff->coderfp != NULL) {
+		fclose(shuff->coderfp); /* close bychunk temp file */
+		shuff->coderfp = NULL;
+	}
 	if ((fpsource = fopen(shuff->sourcefile,"r")) == NULL) return 0;
 	if ((fpdest = vfopen(shuff->targetfile,"w",shuff->volsize)) == NULL) return 0;