diff options
| author | David Mitchell <davem@iabyn.com> | 2017-01-23 15:10:12 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2017-01-23 15:10:12 +0000 |
| commit | 8217cd28dfa0c41f67d60dfda19d36280c922c01 (patch) | |
| tree | e5e265e43c6844e5366203f68689ba55f7448e7e /dump.c | |
| parent | 6f3289f02701c220917a04baadb76473ebe3c89a (diff) | |
| download | perl-8217cd28dfa0c41f67d60dfda19d36280c922c01.tar.gz | |
op_dump(): no OPf_SPECIAL on AELEMFAST,GVSV,GV
between 5.14 and 5.16 pp_aelemfast changed from using OPf_SPECIAL to
using op type to distinguish between a lexical or glob arg, but op_dump()
hadn't been updated to reflect this. Also, GVSV and GV never used the
OPf_SPECIAL flag, so testing for it with those ops was wrong (but
currently harmless).
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -1073,7 +1073,6 @@ S_do_op_dump_bar(pTHX_ I32 level, UV bar, PerlIO *file, const OP *o) S_opdump_indent(aTHX_ o, level, bar, file, "PADIX = %" IVdf "\n", (IV)cPADOPo->op_padix); #else - if ( ! (o->op_flags & OPf_SPECIAL)) { /* not lexical */ if (cSVOPo->op_sv) { STRLEN len; const char * name; @@ -1087,7 +1086,6 @@ S_do_op_dump_bar(pTHX_ I32 level, UV bar, PerlIO *file, const OP *o) } else S_opdump_indent(aTHX_ o, level, bar, file, "GV = NULL\n"); - } #endif break; |