Urk -- undo previous removal of vmsish 'exit' change

p4raw-id: //depot/vmsperl@6114

diff --git a/vms/ext/vmsish.pm b/vms/ext/vmsish.pm
index 5d738d0..c51863a 100644 (file)
--- a/vms/ext/vmsish.pm
+++ b/vms/ext/vmsish.pm
@@ -67,9 +67,8 @@ sub bits {
     my $bits = 0;
     my $sememe;
     foreach $sememe (@_) {
-        $bits |= 0x10000000, next if $sememe eq 'hushed';
-       $bits |= 0x20000000, next if $sememe eq 'status' || $sememe eq '$?';
-       $bits |= 0x40000000, next if $sememe eq 'exit';
+        $bits |= 0x20000000, next if $sememe eq 'hushed';
+        $bits |= 0x40000000, next if $sememe eq 'status' || $sememe eq '$?';
        $bits |= 0x80000000, next if $sememe eq 'time';
     }
     $bits;
@@ -77,12 +76,22 @@ sub bits {
 
 sub import {
     shift;
-    $^H |= bits(@_ ? @_ : qw(status exit time hushed));
+    $^H |= bits(@_ ? @_ : qw(status time hushed));
+    my $sememe;
+
+    foreach $sememe (@_ ? @_ : qw(exit)) {
+        $^H{'vmsish_exit'}   = 1 if $sememe eq 'exit';
+    }
 }
 
 sub unimport {
     shift;
-    $^H &= ~ bits(@_ ? @_ : qw(status exit time hushed));
+    $^H &= ~ bits(@_ ? @_ : qw(status time hushed));
+    my $sememe;
+
+    foreach $sememe (@_ ? @_ : qw(exit)) {
+        $^H{'vmsish_exit'}   = 0 if $sememe eq 'exit';
+    }
 }
 
 1;

diff --git a/vms/vmsish.h b/vms/vmsish.h
index 16d119d..c21f8f3 100644 (file)
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -224,9 +224,8 @@
 #define COMPLEX_STATUS 1       /* We track both "POSIX" and VMS values */
 
 #define HINT_V_VMSISH          24
-#define HINT_M_VMSISH_HUSHED   0x10000000 /* turn off message on error exit*/
-#define HINT_M_VMSISH_STATUS   0x20000000 /* system, $? return VMS status */
-#define HINT_M_VMSISH_EXIT     0x40000000 /* exit(1) ==> SS$_NORMAL */
+#define HINT_M_VMSISH_HUSHED   0x20000000 /* stifle error msgs on exit */
+#define HINT_M_VMSISH_STATUS   0x40000000 /* system, $? return VMS status */
 #define HINT_M_VMSISH_TIME     0x80000000 /* times are local, not UTC */
 #define NATIVE_HINTS           (PL_hints >> HINT_V_VMSISH)  /* used in op.c */