Fewer memory leaks

[pspp] / src / libpspp / zip-reader.c

diff --git a/src/libpspp/zip-reader.c b/src/libpspp/zip-reader.c
index 985b0a9027723180f6362d430ad66e9b8f49c045..a36bd6f25f24d3db7176f403bbea9337017740b1 100644 (file)
--- a/src/libpspp/zip-reader.c
+++ b/src/libpspp/zip-reader.c
@@ -126,7 +126,9 @@ zip_reader_destroy (struct zip_reader *zr)
   if (zr == NULL) 
     return;
 
-  fclose (zr->fr);
+  if (zr->fr != NULL)
+    fclose (zr->fr);
+
   free (zr->filename);
 
   for (i = 0; i < zr->n_members; ++i)