diff options
author | Zefram <zefram@fysh.org> | 2017-11-29 21:51:11 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2017-11-29 21:51:11 +0000 |
commit | e98c3eae7b9c9628400af33f6ac77a6feebb4f3f (patch) | |
tree | 4b1e5a82e9163369ff45add5825ac6cb7c7e8c10 /pp_ctl.c | |
parent | b4904f80ff3e727173a3d8a9856827695e1af0ad (diff) | |
download | perl-e98c3eae7b9c9628400af33f6ac77a6feebb4f3f.tar.gz |
remove unused CXp_FOR_DEF and OPpITER_DEF
These were used to identify foreach loops that qualify as topicalizers.
That's no longer a relevant classification.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -2160,8 +2160,6 @@ PP(pp_enteriter) itersave = GvSV(sv); SvREFCNT_inc_simple_void(itersave); cxflags = CXp_FOR_GV; - if (PL_op->op_private & OPpITER_DEF) - cxflags |= CXp_FOR_DEF; } else { /* LV ref: for \$foo (...) */ assert(SvTYPE(sv) == SVt_PVMG); @@ -2171,8 +2169,6 @@ PP(pp_enteriter) cxflags = CXp_FOR_LVREF; } } - /* OPpITER_DEF (implicit $_) should only occur with a GV iter var */ - assert((cxflags & CXp_FOR_GV) || !(PL_op->op_private & OPpITER_DEF)); /* Note that this context is initially set as CXt_NULL. Further on * down it's changed to one of the CXt_LOOP_*. Before it's changed, |