From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Fri, 5 Jul 1996 00:38:18 +0000 (+0000)
Subject: Overload OPf_SPECIAL with G_KEEPERR status for OP_(ENTER|LEAVE)EVAL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2ec2afdc0c596f7deb501073a2632b12609eca5;p=p5sagit%2Fp5-mst-13.2.git

Overload OPf_SPECIAL with G_KEEPERR status for OP_(ENTER|LEAVE)EVAL
---

diff --git a/op.h b/op.h
index 304099b..7c210bc 100644
--- a/op.h
+++ b/op.h
@@ -63,6 +63,7 @@ typedef U32 PADOFFSET;
 				/*  On flipflop, we saw ... instead of .. */
 				/*  On UNOPs, saw bare parens, e.g. eof(). */
 				/*  On OP_ENTERSUB || OP_NULL, saw a "do". */
+				/*  On OP_(ENTER|LEAVE)EVAL, don't clear $@ */
 
 /* Private for lvalues */
 #define OPpLVAL_INTRO	128	/* Lvalue must be localized */