diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-05-25 02:25:34 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-05-25 02:25:34 +0000 |
| commit | 744a34f9085790ea7e2e782a67280c43116f938e (patch) | |
| tree | 794ec9a1e048d2a92f238a59c24257acff0caf6d | |
| parent | 51d72eab6b91de4131dc68036f54a9d76d1639fe (diff) | |
| download | perl-744a34f9085790ea7e2e782a67280c43116f938e.tar.gz | |
Urk -- undo previous removal of vmsish 'exit' change
p4raw-id: //depot/vmsperl@6114
| -rw-r--r-- | vms/ext/vmsish.pm | 19 | ||||
| -rw-r--r-- | vms/vmsish.h | 5 |
2 files changed, 16 insertions, 8 deletions
diff --git a/vms/ext/vmsish.pm b/vms/ext/vmsish.pm index 5d738d0a82..c51863a4f3 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 16d119dd06..c21f8f329e 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 */ |