support for C<use vmsish 'hushed'>; move VMSISH_EXIT out of

op_private (from Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>)

p4raw-id: //depot/perl@5816

1 files changed, 3 insertions, 0 deletions

diff --git a/op.h b/op.h
index 827b0803aa..081d10c0e8 100644
--- a/op.h
+++ b/op.h
@@ -203,6 +203,9 @@ Deprecated.  Use C<GIMME_V> instead.
 #define OPpOPEN_OUT_RAW		64	/* binmode(F,":raw") on output fh */
 #define OPpOPEN_OUT_CRLF	128	/* binmode(F,":crlf") on output fh */
 
+/* Private for OP_EXIT */
+#define OPpEXIT_VMSISH		128	/* exit(0) vs. exit(1) vmsish mode*/
+
 struct op {
     BASEOP
 };