diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-02-16 02:05:10 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-16 11:12:58 +0000 |
| commit | 4927db4444d4255bf5c9a54ba1d153bb533bd274 (patch) | |
| tree | 72e8f600913dfcfddec9cfb138c701fd896cb7b0 /op.c | |
| parent | fdb2241864c257e44490544064b09a293414e55f (diff) | |
| download | perl-4927db4444d4255bf5c9a54ba1d153bb533bd274.tar.gz | |
Re: [perl #20798] foo(eval {}) crashes Perl 5.8
Message-ID: <20030215220510.GB893@ratsnest.hole>
p4raw-id: //depot/perl@18723
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -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) |