# HG changeset patch
# User Andreas Weber <andy.weber.aw@gmail.com>
# Date 1513432165 -3600
# Node ID 11d7cd4ece5054e20cbe9eb82649b85f8342fbea
# Parent  d400b09043dd414dcbccd312705ca8e84a2e11f5
dlmwrite.m: Close fid if filename is only one char long (bug #52679)

diff -r d400b09043dd -r 11d7cd4ece50 scripts/io/dlmwrite.m
--- 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