--- perl-5.22.1/pp_sort.c.orig  2015-10-17 12:38:38.000000000 +0000
+++ perl-5.22.1/pp_sort.c       2016-01-27 15:05:18.000000000 +0000
@@ -1768,11 +1768,11 @@
 static I32
 S_sortcv(pTHX_ SV *const a, SV *const b)
 {
     const I32 oldsaveix = PL_savestack_ix;
     const I32 oldscopeix = PL_scopestack_ix;
-    I32 result;
+    IV result;
     SV *resultsv;
     PMOP * const pm = PL_curpm;
     OP * const sortop = PL_op;
     COP * const cop = PL_curcop;
  
@@ -1801,11 +1801,11 @@
     while (PL_scopestack_ix > oldscopeix) {
        LEAVE;
     }
     leave_scope(oldsaveix);
     PL_curpm = pm;
-    return result;
+    return (result > 0) - (result < 0);
 }