From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 18 Jan 2004 17:03:30 +0000 (-0600)
Subject: detect nanosleep on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02e1c2f1c4f0858353f9cc49bc10789e69f32bb5;p=p5sagit%2Fp5-mst-13.2.git

detect nanosleep on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <400B10C2.9060504@mac.com>

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

diff --git a/configure.com b/configure.com
index 7cf329d..63610b3 100644
--- a/configure.com
+++ b/configure.com
@@ -4533,6 +4533,23 @@ $ ELSE
 $   d_getsent="undef"
 $ ENDIF
 $!
+$! Check for nanosleep
+$!
+$ OS
+$ WS "#if defined(__DECC) || defined(__DECCXX)"
+$ WS "#include <stdlib.h>"
+$ WS "#endif"
+$ WS "#include <time.h>"
+$ WS "int main()"
+$ WS "{"
+$ WS "int asleep = nanosleep(NULL,NULL);"
+$ WS "exit(0);"
+$ WS "}"
+$ CS
+$ tmp = "nanosleep"
+$ GOSUB inlibc
+$ d_nanosleep = tmp
+$!
 $! Check for socklen_t
 $!
 $ IF Has_Dec_C_Sockets .OR. Has_Socketshr
@@ -5412,7 +5429,7 @@ $ WC "d_msghdr_s='undef'"
 $ WC "d_msync='" + d_msync + "'"
 $ WC "d_munmap='" + d_munmap + "'"
 $ WC "d_mymalloc='" + d_mymalloc + "'"
-$ WC "d_nanosleep='undef'"
+$ WC "d_nanosleep='" + d_nanosleep + "'"
 $ WC "d_nice='define'"
 $ WC "d_nl_langinfo='" + d_nl_langinfo + "'"
 $ WC "d_nv_preserves_uv='" + d_nv_preserves_uv + "'"