From: Charles Bailey <bailey@newman.upenn.edu>
Date: Thu, 25 May 2000 02:25:34 +0000 (+0000)
Subject: Urk -- undo previous removal of vmsish 'exit' change
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=744a34f9085790ea7e2e782a67280c43116f938e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 */