Mercurial > octave
diff src/c-file-ptr-stream.cc @ 3716:08fe5f74c7d4
[project @ 2000-09-07 04:59:03 by jwe]
author | jwe |
---|---|
date | Thu, 07 Sep 2000 04:59:04 +0000 |
parents | 87fa55a09f19 |
children | 13905c3a24af |
line wrap: on
line diff
--- a/src/c-file-ptr-stream.cc Fri Sep 01 05:52:57 2000 +0000 +++ b/src/c-file-ptr-stream.cc Thu Sep 07 04:59:04 2000 +0000 @@ -44,8 +44,6 @@ c_file_ptr_buf::~c_file_ptr_buf (void) { - flush (); - close (); } @@ -158,9 +156,11 @@ { int retval = -1; + flush (); + if (f) { - retval = fclose (f); + retval = cf (f); f = 0; }