From 3a6968c97c864f63e7126ec8da6e5809d7b3a3d8 Mon Sep 17 00:00:00 2001
From: Thomas Bernard <miniupnp@free.fr>
Date: Tue, 20 Feb 2018 13:14:30 +0100
Subject: [PATCH] Save_IFF() fix: Remove file after fclose()

---
 src/fileformats.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/fileformats.c b/src/fileformats.c
index 4591d70e..536005fd 100644
--- a/src/fileformats.c
+++ b/src/fileformats.c
@@ -2176,9 +2176,9 @@ void Save_IFF(T_IO_Context * context)
       fseek(IFF_file,4,SEEK_SET);
       Write_dword_be(IFF_file,file_size-8);
     }
-    else // Il y a eu une erreur lors du compactage => on efface le fichier
-      Remove_file(context);
     fclose(IFF_file);
+    if (File_error != 0) // remove the file if there have been an error
+      Remove_file(context);
   }
   else
     File_error=1;