# HG changeset patch
# User Carlo de Falco <kingcrimson@tiscali.it>
# Date 1330897961 -3600
# Node ID df5488e46dca4559cfbd9b4808cfca14cf412c7a
# Parent  eff4a5933e28539ebcb120d0f42c715d94e7511f
fix bug in input validation for textread

* textread.m: fix a bug in input validation when
headerlines is the only option passed

diff -r eff4a5933e28 -r df5488e46dca scripts/io/textread.m
--- a/scripts/io/textread.m	Sun Mar 04 12:21:10 2012 -0800
+++ b/scripts/io/textread.m	Sun Mar 04 22:52:41 2012 +0100
@@ -71,8 +71,8 @@
     fskipl (fid, varargin{headerlines + 1});
     varargin(headerlines:headerlines+1) = [];
   endif
-
-  if (nargin > 2 && isnumeric (varargin{1}))
+  
+  if (! isempty (varargin) && isnumeric (varargin{1}))
     nlines = varargin{1};
   else
     nlines = Inf;
@@ -140,6 +140,14 @@
 %! assert (b, d(4:5, 2), 1e-2);
 %! assert (c, d(4:5, 3), 1e-2);
 
+%!test
+%! f = tmpnam ();
+%! d = rand (7, 2);
+%! dlmwrite (f, d, "precision", "%5.2f");
+%! [a, b] = textread (f, "%f, %f", "headerlines", 1);
+%! unlink (f);
+%! assert (a, d(2:7, 1), 1e-2);
+
 %% Test input validation
 %!error textread ()
 %!error textread (1)