From b14574b4c5983698eb9d1a38f94eef3a65c411c2 Mon Sep 17 00:00:00 2001 From: "Adrian M. Enache" Date: Fri, 7 Mar 2003 02:12:03 +0200 Subject: [PATCH] Re: [perl #20798] foo(eval {}) crashes Perl 5.8 Message-ID: <20030306221203.GB13330@ratsnest.hole> p4raw-id: //depot/perl@18860 --- op.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/op.c b/op.c index 0ea6146..54de5de 100644 --- a/op.c +++ b/op.c @@ -4718,10 +4718,9 @@ Perl_ck_eval(pTHX_ OP *o) o->op_flags &= ~OPf_KIDS; op_null(o); } - else if (kid->op_type == OP_LINESEQ) { + else if (kid->op_type == OP_LINESEQ || kid->op_type == OP_STUB) { LOGOP *enter; - kid->op_next = o->op_next; cUNOPo->op_first = 0; op_free(o); -- 2.7.4