perl 5.003_04: hints/irix_6_2.sh hints/mpeix.sh

[p5sagit/p5-mst-13.2.git] / 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 */