[overloading, cacsd] fix regressions after 639afd36
[scilab.git] / scilab / modules / overloading / macros / %p_n_r.sci
index c12af6a..a5f13b9 100644 (file)
@@ -1,17 +1,20 @@
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) INRIA
 //
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// you should have received as part of this distribution.  The terms
-// are also available at
-// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+// Copyright (C) 2012 - 2016 - Scilab Enterprises
+//
+// This file is hereby licensed under the terms of the GNU GPL v2.0,
+// pursuant to article 5.3.4 of the CeCILL v.2.1.
+// This file was originally licensed under the terms of the CeCILL v2.1,
+// and continues to be available under such terms.
+// For more information, see the COPYING file which you should have received
+// along with this program.
 
 function [r]=%p_n_r(l1,l2)
     //r%p_n_r(l1,l2) <=>r= (l1<>l2 ) l1 polynomial l2 rational
     //!
 
-    r=degree(l2("den"))==0
+    r=degree(l2("den"))<=0
     if r then r=l2("num")./coeff(l2("den"))==l1,end
     r=~r
 endfunction