From: Adrian M. Enache <enache@rdslink.ro>
Date: Sun, 16 Feb 2003 00:05:10 +0000 (+0200)
Subject: Re: [perl #20798] foo(eval {}) crashes Perl 5.8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4927db4444d4255bf5c9a54ba1d153bb533bd274;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #20798] foo(eval {}) crashes Perl 5.8
Message-ID: <20030215220510.GB893@ratsnest.hole>

p4raw-id: //depot/perl@18723
---

diff --git a/op.c b/op.c
index faf4ad8..9bd7aaa 100644
--- a/op.c
+++ b/op.c
@@ -1755,17 +1755,9 @@ OP*
 Perl_block_end(pTHX_ I32 floor, OP *seq)
 {
     int needblockscope = PL_hints & HINT_BLOCK_SCOPE;
-    line_t copline = PL_copline;
     OP* retval = scalarseq(seq);
     /* If there were syntax errors, don't try to close a block */
     if (PL_yynerrs) return retval;
-    if (!seq) {
-	/* scalarseq() gave us an OP_STUB */
-	retval->op_flags |= OPf_PARENS;
-	/* there should be a nextstate in every block */
-	retval = newSTATEOP(0, Nullch, retval);
-	PL_copline = copline;  /* XXX newSTATEOP may reset PL_copline */
-    }
     LEAVE_SCOPE(floor);
     PL_compiling.op_private = (U8)(PL_hints & HINT_PRIVATE_MASK);
     if (needblockscope)