In Perl_do_op_dump(), reorder the ops within the if (o->op_private) clause.
authorNicholas Clark <nick@ccl4.org>
Fri, 28 May 2010 12:53:02 +0000 (13:53 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 28 May 2010 13:51:39 +0000 (14:51 +0100)
dump.c

diff --git a/dump.c b/dump.c
index 1befc21..aaeb344 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -911,36 +911,14 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
            if (o->op_private & OPpTARGET_MY)
                sv_catpv(tmpsv, ",TARGET_MY");
        }
-       else if (optype == OP_LEAVESUB ||
-                optype == OP_LEAVE ||
-                optype == OP_LEAVESUBLV ||
-                optype == OP_LEAVEWRITE) {
-           if (o->op_private & OPpREFCOUNTED)
-               sv_catpv(tmpsv, ",REFCOUNTED");
-       }
-        else if (optype == OP_AASSIGN) {
-           if (o->op_private & OPpASSIGN_COMMON)
-               sv_catpv(tmpsv, ",COMMON");
-       }
-       else if (optype == OP_SASSIGN) {
-           if (o->op_private & OPpASSIGN_BACKWARDS)
-               sv_catpv(tmpsv, ",BACKWARDS");
-       }
-       else if (optype == OP_TRANS) {
-           append_flags(tmpsv, o->op_private, op_trans_names);
-       }
-       else if (optype == OP_REPEAT) {
-           if (o->op_private & OPpREPEAT_DOLIST)
-               sv_catpv(tmpsv, ",DOLIST");
-       }
        else if (optype == OP_ENTERSUB ||
-                optype == OP_RV2SV ||
-                optype == OP_GVSV ||
-                optype == OP_RV2AV ||
-                optype == OP_RV2HV ||
-                optype == OP_RV2GV ||
-                optype == OP_AELEM ||
-                optype == OP_HELEM )
+           optype == OP_RV2SV ||
+           optype == OP_GVSV ||
+           optype == OP_RV2AV ||
+           optype == OP_RV2HV ||
+           optype == OP_RV2GV ||
+           optype == OP_AELEM ||
+           optype == OP_HELEM )
        {
            if (optype == OP_ENTERSUB) {
                append_flags(tmpsv, o->op_private, op_entersub_names);
@@ -976,6 +954,28 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
                    sv_catpv(tmpsv, ",OUR_INTRO");
            }
        }
+       else if (optype == OP_LEAVESUB ||
+                optype == OP_LEAVE ||
+                optype == OP_LEAVESUBLV ||
+                optype == OP_LEAVEWRITE) {
+           if (o->op_private & OPpREFCOUNTED)
+               sv_catpv(tmpsv, ",REFCOUNTED");
+       }
+        else if (optype == OP_AASSIGN) {
+           if (o->op_private & OPpASSIGN_COMMON)
+               sv_catpv(tmpsv, ",COMMON");
+       }
+       else if (optype == OP_SASSIGN) {
+           if (o->op_private & OPpASSIGN_BACKWARDS)
+               sv_catpv(tmpsv, ",BACKWARDS");
+       }
+       else if (optype == OP_TRANS) {
+           append_flags(tmpsv, o->op_private, op_trans_names);
+       }
+       else if (optype == OP_REPEAT) {
+           if (o->op_private & OPpREPEAT_DOLIST)
+               sv_catpv(tmpsv, ",DOLIST");
+       }
        else if (optype == OP_CONST) {
            append_flags(tmpsv, o->op_private, op_const_names);
        }