# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1283341690 -7200
# Node ID 306e40d773a97d4651f3a17d36d87b7bc273315e
# Parent  c07cb4ef80dbdc3404fc393c6ece22fe6827d4d9
don't fclose stream in dlmwrite

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -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.
diff --git a/scripts/io/dlmwrite.m b/scripts/io/dlmwrite.m
--- a/scripts/io/dlmwrite.m
+++ b/scripts/io/dlmwrite.m
@@ -192,7 +192,9 @@
     else
       fprintf (fid, template, a.');
     endif
-    fclose (fid);
+    if (! isscalar (file))
+      fclose (fid);
+    endif
   endif
 endfunction