diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-03-07 02:12:03 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-09 11:33:09 +0000 |
| commit | b14574b4c5983698eb9d1a38f94eef3a65c411c2 (patch) | |
| tree | f216c445302ac36550f09b2f0c1fee8fa831fbf9 /op.c | |
| parent | 7f07ce5f9bb16b56363fc850014c022807c64864 (diff) | |
| download | perl-b14574b4c5983698eb9d1a38f94eef3a65c411c2.tar.gz | |
Re: [perl #20798] foo(eval {}) crashes Perl 5.8
Message-ID: <20030306221203.GB13330@ratsnest.hole>
p4raw-id: //depot/perl@18860
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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); |