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, 2 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index cee753a125..00fa47673a 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2463,8 +2463,8 @@ PP(pp_exit)
 	anum = 0;
     else {
 	anum = SvIVx(POPs);
-#ifdef VMSISH_EXIT
-	if (anum == 1 && VMSISH_EXIT)
+#ifdef VMS
+        if (anum == 1 && (PL_op->op_private & OPpEXIT_VMSISH))
 	    anum = 0;
 #endif
     }