small os390 tweaks (from Peter Prymmer)

[perl5.git] / op.h

diff --git a/op.h b/op.h
index 827b080..081d10c 100644 (file)
--- 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
 };