# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1235718385 -3600
# Node ID 7de0992eb12300fdfd2587b0c1118c5b5713d941
# Parent  8633ae24a89231f5d379a9e44fd9df74eab1bef2
add nargin check to strsplit

diff -r 8633ae24a892 -r 7de0992eb123 scripts/ChangeLog
--- a/scripts/ChangeLog	Fri Feb 27 07:51:20 2009 +0100
+++ b/scripts/ChangeLog	Fri Feb 27 08:06:25 2009 +0100
@@ -1,3 +1,7 @@
+2009-02-27  Jaroslav Hajek  <highegg@gmail.com>
+
+	* strings/strsplit.m: Check also nargin.
+
 2009-02-26  John W. Eaton  <jwe@octave.org>
 
 	* deprecated/split.m: Add warning, not about version.
diff -r 8633ae24a892 -r 7de0992eb123 scripts/strings/strsplit.m
--- a/scripts/strings/strsplit.m	Fri Feb 27 07:51:20 2009 +0100
+++ b/scripts/strings/strsplit.m	Fri Feb 27 08:06:25 2009 +0100
@@ -23,7 +23,8 @@
 ## @end deftypefn
 
 function s = strsplit (p, sep, strip_empty = false)
-  if (! ischar (p) || rows (p) > 1 || ! ischar (sep) || ! islogical (strip_empty))
+  if (nargin < 2 || nargin > 3 || ! ischar (p) || rows (p) > 1 \
+    || ! ischar (sep) || ! islogical (strip_empty))
     print_usage ();
   endif