diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-06-25 22:06:57 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-25 22:06:57 -0700 |
| commit | 8a38d2ce6d198181a4ccff1837db40846897eb27 (patch) | |
| tree | 3fc8299d352185f8bf3f3e3ea18327bc44e9f82a /op.c | |
| parent | c3258369cad3fe2a997f975a86f13f5c245be4d1 (diff) | |
| download | perl-8a38d2ce6d198181a4ccff1837db40846897eb27.tar.gz | |
op.c:S_simplify_sort: remove redundant OPf_STACKED check
S_simplify_sort is only called from one spot and only when the
OPf_STACKED flag is not set.
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -9714,8 +9714,6 @@ S_simplify_sort(pTHX_ OP *o) PERL_ARGS_ASSERT_SIMPLIFY_SORT; - if (!(o->op_flags & OPf_STACKED)) - return; GvMULTI_on(gv_fetchpvs("a", GV_ADD|GV_NOTQUAL, SVt_PV)); GvMULTI_on(gv_fetchpvs("b", GV_ADD|GV_NOTQUAL, SVt_PV)); kid = kUNOP->op_first; /* get past null */ |