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

[John Darrington]

Index: pspp/src/pfm-read.c
diff -u pspp/src/pfm-read.c:1.14 pspp/src/pfm-read.c:1.15
--- pspp/src/pfm-read.c:1.14    Tue Jan 18 11:31:45 2005
+++ pspp/src/pfm-read.c Mon Jan 31 01:54:57 2005
@@ -101,6 +101,8 @@
   return 0;
 }
 
+static unsigned char * read_string (struct pfm_reader *r);
+
 /* Closes a portable file after we're done with it. */
 void
 pfm_close_reader (struct pfm_reader *r)
@@ -108,6 +110,8 @@
   if (r == NULL)
     return;
 
+  read_string (NULL);
+
   if (r->fh != NULL)
     fh_close (r->fh, "portable file", "rs");
   if (fclose (r->file) == EOF)