print sort {-1} 1..10; hangs

p4raw-id: //depot/perl@773

1 files changed, 3 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 9753fcfa76..35915fd602 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3559,9 +3559,10 @@ qsortsv(
             if (j != i) {
                /* Looks like we really need to move some things
                */
+	       int k;
 	       temp = array[i];
-	       for (--i; i >= j; --i)
-		  array[i + 1] = array[i];
+	       for (k = i - 1; k >= j; --k)
+		  array[k + 1] = array[k];
                array[j] = temp;
             }
          }