# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1317399608 25200
# Node ID be74491c20e804b6ea8478ba2989b622f039a007
# Parent  e052c36bf14f4ade3844983fbcaa2072a1f83f42
Correct typo in input validation of polynomial functions (Bug #33252)

* ppder.m, ppint.m, ppjumps.m, ppval.m: Correct typo placing negation (!)
only on first isstruct argument rather than combined (isstruct && strcmp)
condition.

diff -r e052c36bf14f -r be74491c20e8 scripts/polynomial/ppder.m
--- a/scripts/polynomial/ppder.m	Fri Sep 30 11:35:20 2011 -0400
+++ b/scripts/polynomial/ppder.m	Fri Sep 30 09:20:08 2011 -0700
@@ -32,7 +32,7 @@
     m = 1;
   endif
 
-  if !(isstruct (pp) && strcmp (pp.form, "pp"))
+  if (! (isstruct (pp) && strcmp (pp.form, "pp")))
     error ("ppder: PP must be a structure");
   endif
 
diff -r e052c36bf14f -r be74491c20e8 scripts/polynomial/ppint.m
--- a/scripts/polynomial/ppint.m	Fri Sep 30 11:35:20 2011 -0400
+++ b/scripts/polynomial/ppint.m	Fri Sep 30 09:20:08 2011 -0700
@@ -28,7 +28,7 @@
   if (nargin < 1 || nargin > 2)
     print_usage ();
   endif
-  if (! isstruct (pp) && strcmp (pp.form, "pp"))
+  if (! (isstruct (pp) && strcmp (pp.form, "pp")))
     error ("ppint: PP must be a structure");
   endif
 
diff -r e052c36bf14f -r be74491c20e8 scripts/polynomial/ppjumps.m
--- a/scripts/polynomial/ppjumps.m	Fri Sep 30 11:35:20 2011 -0400
+++ b/scripts/polynomial/ppjumps.m	Fri Sep 30 09:20:08 2011 -0700
@@ -29,7 +29,7 @@
     print_usage ();
   endif
 
-  if (! isstruct (pp) && strcmp (pp.form, "pp"))
+  if (! (isstruct (pp) && strcmp (pp.form, "pp")))
     error ("ppjumps: PP must be a structure");
   endif
 
diff -r e052c36bf14f -r be74491c20e8 scripts/polynomial/ppval.m
--- a/scripts/polynomial/ppval.m	Fri Sep 30 11:35:20 2011 -0400
+++ b/scripts/polynomial/ppval.m	Fri Sep 30 09:20:08 2011 -0700
@@ -37,8 +37,8 @@
   if (nargin != 2)
     print_usage ();
   endif
-  if (! isstruct (pp) && strcmp (pp.form, "pp"))
-    error ("ppval: expects a pp-form structure");
+  if (! (isstruct (pp) && strcmp (pp.form, "pp")))
+    error ("ppval: first argument must be a pp-form structure");
   endif
 
   ## Extract info.