perl-PDL/PDL-2.4.7-qsortvec.diff

Index: Basic/Ufunc/ufunc.pd
===================================================================
--- Basic/Ufunc/ufunc.pd.orig	2016-08-24 09:56:24.038805670 +0200
+++ Basic/Ufunc/ufunc.pd	2016-08-24 09:57:02.551371474 +0200
@@ -510,7 +510,7 @@ for (keys %PDL::Types::typehash) {
 	/* Compare a vector in lexicographic order, returning the
 	 *  equivalent of "<=>". 
  	 */
-      signed char pdl_cmpvec_$ppsym($ctype *a, $ctype *b, PDL_Indx n) {
+      signed int pdl_cmpvec_$ppsym($ctype *a, $ctype *b, PDL_Indx n) {
 	PDL_Indx i;
 	for(i=0; i<n; a++,b++,i++) {
 	 if( *a < *b ) return -1;