Overload OPf_SPECIAL with G_KEEPERR status for OP_(ENTER|LEAVE)EVAL
Perl 5 Porters [Fri, 5 Jul 1996 00:38:18 +0000 (00:38 +0000)]
op.h

diff --git a/op.h b/op.h
index 304099b..7c210bc 100644 (file)
--- 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 */