From 4927db4444d4255bf5c9a54ba1d153bb533bd274 Mon Sep 17 00:00:00 2001 From: "Adrian M. Enache" Date: Sun, 16 Feb 2003 02:05:10 +0200 Subject: [PATCH] Re: [perl #20798] foo(eval {}) crashes Perl 5.8 Message-ID: <20030215220510.GB893@ratsnest.hole> p4raw-id: //depot/perl@18723 --- op.c | 8 -------- 1 file changed, 8 deletions(-) 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) -- 2.7.4