Rename variable for clarity
authorSteffen Mueller <smueller@cpan.org>
Mon, 14 Nov 2011 19:50:41 +0000 (20:50 +0100)
committerSteffen Mueller <smueller@cpan.org>
Sat, 19 Nov 2011 16:49:04 +0000 (17:49 +0100)
op.c

index 6a6fa87..dc60f9a 100644 (file)
--- a/op.c
+++ b/op.c
@@ -8765,7 +8765,7 @@ S_simplify_sort(pTHX_ OP *o)
 {
     dVAR;
     register OP *kid = cLISTOPo->op_first->op_sibling; /* get past pushmark */
-    OP *k;
+    OP *comparison_op;
     int descending;
     GV *gv;
     const char *gvname;
@@ -8788,7 +8788,7 @@ S_simplify_sort(pTHX_ OP *o)
        default:
            return;
     }
-    k = kid;                                           /* remember this node*/
+    comparison_op = kid;                               /* remember this node*/
     if (kBINOP->op_first->op_type != OP_RV2SV)
        return;
     kid = kBINOP->op_first;                            /* get past cmp */
@@ -8806,7 +8806,7 @@ S_simplify_sort(pTHX_ OP *o)
     else
        return;
 
-    kid = k;                                           /* back to cmp */
+    kid = comparison_op;                               /* back to cmp */
     if (kBINOP->op_last->op_type != OP_RV2SV)
        return;
     kid = kBINOP->op_last;                             /* down to 2nd arg */
@@ -8824,9 +8824,9 @@ S_simplify_sort(pTHX_ OP *o)
     o->op_flags &= ~(OPf_STACKED | OPf_SPECIAL);
     if (descending)
        o->op_private |= OPpSORT_DESCEND;
-    if (k->op_type == OP_NCMP)
+    if (comparison_op->op_type == OP_NCMP)
        o->op_private |= OPpSORT_NUMERIC;
-    if (k->op_type == OP_I_NCMP)
+    if (comparison_op->op_type == OP_I_NCMP)
        o->op_private |= OPpSORT_NUMERIC | OPpSORT_INTEGER;
     kid = cLISTOPo->op_first->op_sibling;
     cLISTOPo->op_first->op_sibling = kid->op_sibling; /* bypass old block */