From 6ac6a52b90121db9304782c76ae9243ce4205369 Mon Sep 17 00:00:00 2001 From: "John E. Malmberg" Date: Tue, 25 Oct 2005 07:09:37 -0400 Subject: Back out change #25839, and apply : Subject: [patch@25838]Hopefully the last VMS exit/error fixes needed. From: "John E. Malmberg" Message-ID: <435E4AB1.1000106@qsl.net> p4raw-link: @25839 on //depot/perl: 0968cdad220f9ff42abaf7f92b7d3731a578e46d p4raw-id: //depot/perl@25849 --- vms/perlvms.pod | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) (limited to 'vms') diff --git a/vms/perlvms.pod b/vms/perlvms.pod index 685e39cd9f..bf2b27d235 100644 --- a/vms/perlvms.pod +++ b/vms/perlvms.pod @@ -626,6 +626,24 @@ C to insure that you'll get the proper value: return 1; } + +=item die + +C will force the native VMS exit status to be an SS$_ABORT code +if neither of the $! or $? status values are ones that would cause +the native status to be interpreted as being what VMS classifies as +SEVERE_ERROR severity for DCL error handling. + +When the future POSIX_EXIT mode is active, C, the native status +code will be set to VMS condition value that will allow C programs +including the GNV package to automatically decode the original C<$!> +or <$?> or <$^E> settings unless those are all success values, in +which case it will be set for those programs to recover the value +255. If at the time C is called, the native VMS status value +is either of SEVERE_ERROR or ERROR severity, the native VMS +value will be used. See C<$?> for a description on decoding the +native VMS value to recover the original exit status. + =item dump Rather than causing Perl to abort and dump core, the C @@ -1070,12 +1088,25 @@ is that setting C<$?> to zero results in the generic success value SS$_NORMAL, and setting C<$?> to a non-zero value results in the generic failure status SS$_ABORT. See also L. +With the future POSIX_EXIT mode set, setting C<$?> will cause the +code set to be encoded into a native VMS status code so that the +either the parent or child exit codes of 0 to 255 can be recovered +by C programs expecting _POSIX_EXIT behavior. If both a parent +and a child exit code are set, then it will be assumed that this +is a VMS status code to be passed through. The special code of +0xFFFF is almost a NOOP as it will cause the current native +VMS status in the C library to become the current native Perl +VMS status. + The pragma C makes C<$?> reflect the actual VMS exit status instead of the default emulation of POSIX status described above. This pragma also disables the conversion of non-zero values to SS$_ABORT when setting C<$?> in an END block (but zero will still be converted to SS$_NORMAL). +Do not use the pragma C with the future +POSIX_EXIT mode, as they are requesting conflicting actions. + =item $| Setting C<$|> for an I/O stream causes data to be flushed -- cgit v1.2.1