X-Git-Url: https://git.llucax.com/z.facultad/75.06/emufs.git/blobdiff_plain/f84d04a91b1f48afe019f1477b87a22a516ef888..c8239d08a90bf0122fc54804ecee09dc14e5f826:/emufs/tipo2.c

diff --git a/emufs/tipo2.c b/emufs/tipo2.c
index 1858c75..b2724e9 100644
--- a/emufs/tipo2.c
+++ b/emufs/tipo2.c
@@ -318,6 +318,7 @@ void emufs_tipo2_compactar(EMUFS *efs)
 	/* Obtengo la cantidad de gaps */
 	if ( (fscfile = fopen(name_ffsc,"rb")) == NULL){
 			PERR("No se pudo abrir el archivo");
+			fclose(datfile);
 			return;
 	}
 	fseek(fscfile,0,SEEK_END);