This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c:S_simplify_sort: remove redundant OPf_STACKED check
authorFather Chrysostomos <sprout@cpan.org>
Wed, 26 Jun 2013 05:06:57 +0000 (22:06 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 26 Jun 2013 05:06:57 +0000 (22:06 -0700)
S_simplify_sort is only called from one spot and only when the
OPf_STACKED flag is not set.

op.c

diff --git a/op.c b/op.c
index 41d8c92..2d6793e 100644 (file)
--- a/op.c
+++ b/op.c
@@ -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 */