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 (file)
--- 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)