summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2003-04-13 19:43:00 -0500
committerH.Merijn Brand <h.m.brand@xs4all.nl>2003-04-14 05:42:18 +0000
commit119586db753fab6875f9973c20a57e0d66dbfbcf (patch)
treef34f113f066e3f2460cc4491f79993ae7a168ee9 /vms
parent47cb5ff94030e4ad02be93d8c9632645ac553a43 (diff)
downloadperl-119586db753fab6875f9973c20a57e0d66dbfbcf.tar.gz
vms/vms.c waitpid tweak
From: "Craig A. Berry" <craigberry@mac.com> Message-ID: <3E9A4A64.6030205@mac.com> p4raw-id: //depot/perl@19202
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/vms/vms.c b/vms/vms.c
index fb30f1c6f7..2bcf087bf1 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2752,7 +2752,7 @@ I32 Perl_my_pclose(pTHX_ PerlIO *fp)
} /* end of my_pclose() */
-#if defined(__CRTL_VER) && __CRTL_VER >= 70100322
+#if defined(__CRTL_VER) && __CRTL_VER >= 70200000
/* Roll our own prototype because we want this regardless of whether
* _VMS_WAIT is defined.
*/
@@ -2801,7 +2801,7 @@ Perl_my_waitpid(pTHX_ Pid_t pid, int *statusp, int flags)
/* fall through if this child is not one of our own pipe children */
-#if defined(__CRTL_VER) && __CRTL_VER >= 70100322
+#if defined(__CRTL_VER) && __CRTL_VER >= 70200000
/* waitpid() became available in the CRTL as of VMS 7.0, but only
* in 7.2 did we get a version that fills in the VMS completion
@@ -2820,7 +2820,7 @@ Perl_my_waitpid(pTHX_ Pid_t pid, int *statusp, int flags)
* of the current process.
*/
-#endif /* defined(__CRTL_VER) && __CRTL_VER >= 70100322 */
+#endif /* defined(__CRTL_VER) && __CRTL_VER >= 70200000 */
{
$DESCRIPTOR(intdsc,"0 00:00:01");