From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 6 May 2003 15:21:55 +0000 (+0000)
Subject: Worth a try for [perl #17146]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4858b6ca14d891663971c998972aad6abc02b7e2;p=p5sagit%2Fp5-mst-13.2.git

Worth a try for [perl #17146]

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

diff --git a/ext/IO/poll.c b/ext/IO/poll.c
index a7892ff..02a99b9 100644
--- a/ext/IO/poll.c
+++ b/ext/IO/poll.c
@@ -22,7 +22,7 @@
 # include <time.h>
 #endif
 #include <sys/types.h>
-#if defined(HAS_SOCKET) && !defined(VMS) /* VMS handles sockets via vmsish.h */
+#if defined(HAS_SOCKET) && !defined(VMS) && !defined(ultrix) /* VMS handles sockets via vmsish.h, ULTRIX dies of socket struct redefinitions */
 #  include <sys/socket.h>
 #endif
 #include <sys/stat.h>