# HG changeset patch
# User jwe
# Date 1107935977 0
# Node ID 8eaef366ab4339a5d38ecb10bed50de716dda2a5
# Parent  0309b6722ee9f52182b3872a1060987e01bdd812
[project @ 2005-02-09 07:59:37 by jwe]

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2005-02-09  John W. Eaton  <jwe@octave.org>
+
+	* polynomial/polyderiv.m: Force P to be a row vector.
+
 2005-02-08  John W. Eaton  <jwe@octave.org>
 
 	* strings/dec2base.m: Don't delete leading zero if third arg is
diff --git a/scripts/polynomial/polyderiv.m b/scripts/polynomial/polyderiv.m
--- a/scripts/polynomial/polyderiv.m
+++ b/scripts/polynomial/polyderiv.m
@@ -40,7 +40,7 @@
     error ("polyderiv: argument must be a vector");
   endif
 
-  lp = length (p);
+  lp = numel (p);
   if (lp == 1)
     q = 0;
     return;
@@ -49,6 +49,9 @@
     return;
   end
 
-  q = p (1:(lp-1)) .* [(lp-1):-1:1];
+  ## Force P to be a row vector.
+  p = p(:).';
+
+  q = p(1:(lp-1)) .* [(lp-1):-1:1];
 
 endfunction