Change 19023 by [EMAIL PROTECTED] on 2003/03/18 21:22:03
Subject: [PATCH] poll() help for VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 18 Mar 2003 01:10:10 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/configure.com#173 edit
... //depot/perl/ext/IO/poll.h#4 edit
Differences ...
==== //depot/perl/configure.com#173 (text) ====
Index: perl/configure.com
--- perl/configure.com#172~18976~ Fri Mar 14 02:31:50 2003
+++ perl/configure.com Tue Mar 18 13:22:03 2003
@@ -4050,6 +4050,29 @@
$ GOSUB inlibc
$ d_mkdtemp = tmp
$!
+$! Check for poll
+$!
+$ if i_poll .eqs. "define"
+$ then
+$ OS
+$ WS "#if defined(__DECC) || defined(__DECCXX)"
+$ WS "#include <stdlib.h>"
+$ WS "#endif"
+$ WS "#include <poll.h>"
+$ WS "int main()"
+$ WS "{"
+$ WS "struct pollfd pfd;"
+$ WS "int count=poll(&pfd,1,0);"
+$ WS "exit(0);"
+$ WS "}"
+$ CS
+$ tmp = "poll"
+$ GOSUB inlibc
+$ d_poll = tmp
+$ else
+$ d_poll = "undef"
+$ endif
+$!
$! Check for setvbuf
$!
$ OS
@@ -5356,7 +5379,7 @@
$ WC "d_perl_otherlibdirs='undef'"
$ WC "d_phostname='" + d_phostname + "'"
$ WC "d_pipe='define'"
-$ WC "d_poll='undef'"
+$ WC "d_poll='" + d_poll + "'"
$ WC "d_procselfexe='undef'"
$ WC "d_pthread_atfork='undef'"
$ WC "d_pthread_yield='" + d_pthread_yield + "'"
==== //depot/perl/ext/IO/poll.h#4 (text) ====
Index: perl/ext/IO/poll.h
--- perl/ext/IO/poll.h#3~3518~ Tue Jun 1 21:47:10 1999
+++ perl/ext/IO/poll.h Tue Mar 18 13:22:03 2003
@@ -20,6 +20,11 @@
#define EMULATE_POLL_WITH_SELECT
+#ifdef poll
+# undef poll
+#endif
+#define poll Perl_my_poll
+
typedef struct pollfd {
int fd;
short events;
End of Patch.
