diff options
author | John E. Malmberg <wb8tyw@qsl.net> | 2005-10-25 09:36:20 -0400 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-26 08:58:42 +0000 |
commit | 52e64fc8b5379b483536e0f6eb064825c7a9f6a5 (patch) | |
tree | 450f25868a02e974e9b7932f5dfd19c9a48f040f /perl.h | |
parent | ca0c25f67f45e5dccb746852d8545d7ae29ed067 (diff) | |
download | perl-52e64fc8b5379b483536e0f6eb064825c7a9f6a5.tar.gz |
Re: [patch@25838]Hopefully the last VMS exit/error fixes needed.
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <435E6D14.7000104@qsl.net>
p4raw-id: //depot/perl@25851
Diffstat (limited to 'perl.h')
-rw-r--r-- | perl.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2691,7 +2691,7 @@ typedef pthread_key_t perl_key; if (MY_POSIX_EXIT) \ PL_statusvalue_vms = \ (C_FAC_POSIX | (evalue << 3 ) | (evalue == 1)? \ - (STS$K_ERROR | STS$M_INHIB_MSG) : 0); \ + (STS$K_ERROR | STS$M_INHIB_MSG) : 1); \ else \ PL_statusvalue_vms = SS$_ABORT; \ } else { /* forgive them Perl, for they have sinned */ \ @@ -2726,7 +2726,7 @@ typedef pthread_key_t perl_key; if (MY_POSIX_EXIT) \ PL_statusvalue_vms = \ (C_FAC_POSIX | (evalue << 3 ) | (evalue == 1)? \ - (STS$K_ERROR | STS$M_INHIB_MSG) : 0); \ + (STS$K_ERROR | STS$M_INHIB_MSG) : 1); \ else \ PL_statusvalue_vms = evalue ? evalue : SS$_NORMAL; \ set_vaxc_errno(PL_statusvalue_vms); \ |