zip-reader: Fix file descriptor leak in zip_reader_create().

diff --git a/src/libpspp/zip-reader.c b/src/libpspp/zip-reader.c
index 9f209995522dcb055f60a2842efb839f1cb91815..8868c7db338918a36d53bccb0354480c3997c64a 100644 (file)
--- a/src/libpspp/zip-reader.c
+++ b/src/libpspp/zip-reader.c
@@ -388,6 +388,7 @@ zip_reader_create (const char *file_name, struct string *errs)
       zr->n_entries++;
     }
 
+  fclose (file);
   return zr;
 }