Mercurial > octave

changeset 24419:11d7cd4ece50 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dlmwrite.m: Close fid if filename is only one char long (bug #52679)
author Andreas Weber <andy.weber.aw@gmail.com>
date Sat, 16 Dec 2017 14:49:25 +0100
parents d400b09043dd
children 13344f00c564
files scripts/io/dlmwrite.m
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/io/dlmwrite.m	Fri Dec 15 12:00:50 2017 -0800
+++ b/scripts/io/dlmwrite.m	Sat Dec 16 14:49:25 2017 +0100
@@ -160,7 +160,7 @@
 
   if (ischar (file))
     [fid, msg] = fopen (file, opentype);
-  elseif (isscalar (file) && isnumeric (file))
+  elseif (is_valid_file_id (file))
     [fid, msg] = deal (file, "invalid file number");
   else
     error ("dlmwrite: FILE must be a filename string or numeric FID");
@@ -194,7 +194,7 @@
     else
       fprintf (fid, template, M.');
     endif
-    if (! isscalar (file))
+    if (ischar (file))
       fclose (fid);
     endif
   endif