File PDL-2.4.7-qsortvec.diff of Package perl-PDL

--- Basic/Ufunc/ufunc.pd
+++ Basic/Ufunc/ufunc.pd
@@ -472,7 +472,7 @@
 	/* Compare a vector in lexicographic order, returning the
 	 *  equivalent of "<=>". 
  	 */
-      signed char pdl_cmpvec_$ppsym($ctype *a, $ctype *b, int n) {
+      signed int pdl_cmpvec_$ppsym($ctype *a, $ctype *b, int n) {
 	int i;
 	for(i=0; i<n; a++,b++,i++) {
 	 if( *a < *b ) return -1;