perlhack.pod addendum for consideration (perlbug mail interface)

[p5sagit/p5-mst-13.2.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index 804e84f..567370b 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2593,6 +2593,7 @@ PP(pp_exit)
 #ifdef VMS
         if (anum == 1 && (PL_op->op_private & OPpEXIT_VMSISH))
            anum = 0;
+        VMSISH_HUSHED  = VMSISH_HUSHED || (PL_op->op_private & OPpHUSH_VMSISH);
 #endif
     }
     PL_exit_flags |= PERL_EXIT_EXPECTED;
@@ -3322,7 +3323,7 @@ trylocal: {
        RETPUSHUNDEF;
     }
     else
-       SETERRNO(0, VMS_SS_NORMAL);
+       SETERRNO(0, SS$_NORMAL);
 
     /* Assume success here to prevent recursive requirement. */
     len = strlen(name);