[Pspp-cvs] Changes to pspp/src/sfm-read.c

[John Darrington]

Index: pspp/src/sfm-read.c
diff -u pspp/src/sfm-read.c:1.14 pspp/src/sfm-read.c:1.15
--- pspp/src/sfm-read.c:1.14    Mon Nov 15 09:51:22 2004
+++ pspp/src/sfm-read.c Fri Feb 25 13:14:29 2005
@@ -153,9 +153,13 @@
 
   if (r->fh != NULL)
     fh_close (r->fh, "system file", "rs");
-  if (fn_close (handle_get_filename (r->fh), r->file) == EOF)
-    msg (ME, _("%s: Closing system file: %s."),
-         handle_get_filename (r->fh), strerror (errno));
+  
+  if ( r->file ) {
+    if (fn_close (handle_get_filename (r->fh), r->file) == EOF)
+      msg (ME, _("%s: Closing system file: %s."),
+          handle_get_filename (r->fh), strerror (errno));
+    r->file = NULL;
+  }
   free (r->vars);
   free (r->buf);
   free (r);