Change 18860 by [EMAIL PROTECTED] on 2003/03/09 11:33:09
Subject: Re: [perl #20798] foo(eval {}) crashes Perl 5.8
From: Enache Adrian <[EMAIL PROTECTED]>
Date: Fri, 7 Mar 2003 00:12:03 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#550 edit
Differences ...
==== //depot/perl/op.c#550 (text) ====
Index: perl/op.c
--- perl/op.c#549~18828~ Tue Mar 4 12:49:59 2003
+++ perl/op.c Sun Mar 9 03:33:09 2003
@@ -4718,10 +4718,9 @@
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);
End of Patch.
