A proper, working, stable optimisation for sort {$b cmp $a}

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 940d802..fd1e492 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5948,10 +5948,6 @@ S_simplify_sort(pTHX_ OP *o)
     else
        return;
 
-    /* FIXME once we have proper descending support in pp_sort */
-    if (descending)
-      return;
-
     kid = k;                                           /* back to cmp */
     if (kBINOP->op_last->op_type != OP_RV2SV)
        return;