diff options
| author | Gerard Goossen <gerard@ggoossen.net> | 2011-08-13 18:51:48 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-15 20:27:02 -0700 |
| commit | d26376f0cba86f87a4770b29227457e5c2b4a1db (patch) | |
| tree | 838206f7e56f03b7de68535d340a7d0c7adcecf0 /dump.c | |
| parent | 5c906035ffb6b2857a0f941a97ac9e7bb4126275 (diff) | |
| download | perl-d26376f0cba86f87a4770b29227457e5c2b4a1db.tar.gz | |
Remove OPpENTERSUB_NOMOD.
OPpENTERSUB_NOMOD was always set in combination with OPf_WANT_VOID
which is now used to not propagate the lvalue context, making
OPpENTERSUB_NOMOD redundant.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -811,7 +811,6 @@ const struct flag_to_name op_trans_names[] = { const struct flag_to_name op_entersub_names[] = { {OPpENTERSUB_DB, ",DB"}, {OPpENTERSUB_HASTARG, ",HASTARG"}, - {OPpENTERSUB_NOMOD, ",NOMOD"}, {OPpENTERSUB_AMPER, ",AMPER"}, {OPpENTERSUB_NOPAREN, ",NOPAREN"}, {OPpENTERSUB_INARGS, ",INARGS"} @@ -2962,8 +2961,6 @@ Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) sv_catpv(tmpsv, ",NOPAREN"); if (o->op_private & OPpENTERSUB_INARGS) sv_catpv(tmpsv, ",INARGS"); - if (o->op_private & OPpENTERSUB_NOMOD) - sv_catpv(tmpsv, ",NOMOD"); } else { switch (o->op_private & OPpDEREF) { |