From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 26 Jun 2013 05:06:57 +0000 (-0700)
Subject: op.c:S_simplify_sort: remove redundant OPf_STACKED check
X-Git-Tag: if-0.0603~2
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/8a38d2ce6d198181a4ccff1837db40846897eb27?ds=sidebyside

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.
---

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