From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 14 Apr 2003 00:43:00 +0000 (-0500)
Subject: vms/vms.c waitpid tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=119586db753fab6875f9973c20a57e0d66dbfbcf;p=p5sagit%2Fp5-mst-13.2.git

vms/vms.c waitpid tweak
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E9A4A64.6030205@mac.com>

p4raw-id: //depot/perl@19202
---

diff --git a/vms/vms.c b/vms/vms.c
index fb30f1c..2bcf087 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");