diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2005-10-23 21:34:41 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-25 08:14:33 +0000 |
| commit | 0968cdad220f9ff42abaf7f92b7d3731a578e46d (patch) | |
| tree | 35b15ba93de0d3a81a8df7b200532d197b26728c /vms | |
| parent | a1f215421ebd80862b412b5d459a2959cc58fc9d (diff) | |
| download | perl-0968cdad220f9ff42abaf7f92b7d3731a578e46d.tar.gz | |
VMS exit handling still broken, need some help.
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <435C7271.8070403@qsl.net>
p4raw-id: //depot/perl@25839
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1821,7 +1821,7 @@ int unix_status; fac_sp = vms_status & STS$M_FAC_SP; msg_no = vms_status & (STS$M_MSG_NO | STS$M_SEVERITY); - if ((facility == 0) || (fac_sp == 0) && (child_flag == 0)) { + if (((facility == 0) || (fac_sp == 0)) && (child_flag == 0)) { switch(msg_no) { case SS$_NORMAL: unix_status = 0; @@ -2025,7 +2025,7 @@ int test_unix_status; case EACCES: return SS$_FILACCERR; case EFAULT: return SS$_ACCVIO; /* case ENOTBLK */ - case EBUSY: SS$_DEVOFFLINE; + case EBUSY: return SS$_DEVOFFLINE; case EEXIST: return RMS$_FEX; /* case EXDEV */ case ENODEV: return SS$_NOSUCHDEV; |