[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Pspp-cvs] Changes to pspp/src/sfm-read.c
From: |
John Darrington |
Subject: |
[Pspp-cvs] Changes to pspp/src/sfm-read.c |
Date: |
Fri, 25 Feb 2005 08:14:32 -0500 |
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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Pspp-cvs] Changes to pspp/src/sfm-read.c,
John Darrington <=