Mercurial > octave-nkf

changeset 10940:306e40d773a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
don't fclose stream in dlmwrite
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 01 Sep 2010 13:48:10 +0200
parents c07cb4ef80db
children 97294dd3ccd4
files scripts/ChangeLog scripts/io/dlmwrite.m
diffstat 2 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Wed Sep 01 13:40:58 2010 +0200
+++ b/scripts/ChangeLog	Wed Sep 01 13:48:10 2010 +0200
@@ -1,3 +1,7 @@
+2010-09-01  Jaroslav Hajek  <highegg@gmail.com>
+
+	* io/dlmwrite.m: Don't fclose if file ID is supplied.
+
 2010-09-01  Jaroslav Hajek  <highegg@gmail.com>
 
 	* io/dlmwrite.m: Support file IDs.
--- a/scripts/io/dlmwrite.m	Wed Sep 01 13:40:58 2010 +0200
+++ b/scripts/io/dlmwrite.m	Wed Sep 01 13:48:10 2010 +0200
@@ -192,7 +192,9 @@
     else
       fprintf (fid, template, a.');
     endif
-    fclose (fid);
+    if (! isscalar (file))
+      fclose (fid);
+    endif
   endif
 endfunction