This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove now-redundant check from pp_ctl.c:S_return_lvalues
authorFather Chrysostomos <sprout@cpan.org>
Thu, 23 Jun 2011 13:16:12 +0000 (06:16 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 23 Jun 2011 17:23:44 +0000 (10:23 -0700)
This has been redundant since commit d25b0d7.

pp_ctl.c

index 8e53116..9ef18b0 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2282,7 +2282,6 @@ S_return_lvalues(pTHX_ SV **mark, SV **sp, SV **newsp, I32 gimme,
                }
                else
                    *++newsp =
-                       (!CxLVAL(cx) || CxLVAL(cx) & OPpENTERSUB_INARGS) &&
                        !SvTEMP(*SP)
                          ? sv_2mortal(SvREFCNT_inc_simple_NN(*SP))
                          : *SP;