diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-05-28 13:53:02 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-05-28 14:51:39 +0100 |
commit | 5c135d48c0468f552840e5ac9811f70aebcac766 (patch) | |
tree | 09ea40401350258e0157cfd559854adbfcd44d59 | |
parent | ae1f06a125e806e4a0c111878fb9da530a3df3c6 (diff) | |
download | perl-5c135d48c0468f552840e5ac9811f70aebcac766.tar.gz |
In Perl_do_op_dump(), reorder the ops within the if (o->op_private) clause.
-rw-r--r-- | dump.c | 58 |
1 files changed, 29 insertions, 29 deletions
@@ -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); } |