Fix bugs deleting temporary files and their containing directory.

[pspp-builds.git] / src / libpspp / ext-array.c

diff --git a/src/libpspp/ext-array.c b/src/libpspp/ext-array.c
index 68bbe954f38768d80d48a9c1f90ae71873daf086..57ff8e4a7d6225e3b56c9b71c0760e6e9570f635 100644 (file)
--- a/src/libpspp/ext-array.c
+++ b/src/libpspp/ext-array.c
@@ -69,7 +69,7 @@ ext_array_destroy (struct ext_array *ea)
     {
       ok = !ext_array_error (ea);
       if (ea->file != NULL)
-        fclose (ea->file);
+        close_temp_file (ea->file);
       free (ea);
     }
   return ok;