diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-19 05:55:52 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-19 05:55:52 +0000 |
| commit | d98f61e7d51abbefcd3982d605d4bd09ed4ddd7f (patch) | |
| tree | 0fe4b7cb5a932e8e59433ecae8bcc077da072ed3 /vms/vmsish.h | |
| parent | 71a29c3c6e68e84b4c2fa366c4878918712829a9 (diff) | |
| download | perl-d98f61e7d51abbefcd3982d605d4bd09ed4ddd7f.tar.gz | |
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
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 12b13696ce..e53c604d16 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -223,14 +223,14 @@ #define COMPLEX_STATUS 1 /* We track both "POSIX" and VMS values */ #define HINT_V_VMSISH 24 -#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 */ #define TEST_VMSISH(h) (PL_curcop->op_private & ((h) >> HINT_V_VMSISH)) +#define VMSISH_HUSHED TEST_VMSISH(HINT_M_VMSISH_HUSHED) #define VMSISH_STATUS TEST_VMSISH(HINT_M_VMSISH_STATUS) -#define VMSISH_EXIT TEST_VMSISH(HINT_M_VMSISH_EXIT) #define VMSISH_TIME TEST_VMSISH(HINT_M_VMSISH_TIME) /* Flags for vmstrnenv() */ |