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

p4raw-id: //depot/perl@773

diff --git a/pp_ctl.c b/pp_ctl.c
index 9753fcf..35915fd 100644 (file)
--- 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;
             }
          }