Mercurial > hg > octave-lojdl

diff src/c-file-ptr-stream.cc @ 3693:87fa55a09f19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-07-05 16:04:11 by jwe]
author jwe
date Wed, 05 Jul 2000 16:04:11 +0000
parents 25e84fcef38a
children 08fe5f74c7d4
line wrap: on
line diff
--- a/src/c-file-ptr-stream.cc
+++ b/src/c-file-ptr-stream.cc
@@ -45,6 +45,8 @@
 c_file_ptr_buf::~c_file_ptr_buf (void)
 {
   flush ();
+
+  close ();
 }
 
 // XXX FIXME XXX -- I'm sure there is room for improvement here...
@@ -154,8 +156,15 @@
 int
 c_file_ptr_buf::close (void)
 {
+  int retval = -1;
+
   if (f)
-    return fclose (f);
+    {
+      retval = fclose (f);
+      f = 0;
+    }
+
+  return retval;
 }
 
 void