This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops.
authorFather Chrysostomos <sprout@cpan.org>
Tue, 30 Nov 2010 05:56:25 +0000 (21:56 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 30 Nov 2010 05:56:25 +0000 (21:56 -0800)
That was part of my first attempt to fix [perl #68560]. I forgot to
delete it. (It’s harmless.)

pp_hot.c

index 2176bac..c2b05ca 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -297,7 +297,6 @@ PP(pp_concat)
 PP(pp_padsv)
 {
     dVAR; dSP; dTARGET;
-    if(!TARG) TARG = PAD_SVl(PL_op->op_targ) = newSV(0);
     XPUSHs(TARG);
     if (PL_op->op_flags & OPf_MOD) {
        if (PL_op->op_private & OPpLVAL_INTRO)