From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sat, 2 Aug 2003 09:38:50 +0000 (-0700)
Subject: OS/2 build
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=46c6a8acd76ad6e00cf925b19fff0f796d786c93;p=p5sagit%2Fp5-mst-13.2.git

OS/2 build
Message-ID: <20030802163850.GA4712@math.berkeley.edu>

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

diff --git a/os2/os2ish.h b/os2/os2ish.h
index 225d271..0da62aa 100644
--- a/os2/os2ish.h
+++ b/os2/os2ish.h
@@ -740,6 +740,7 @@ char *perllib_mangle(char *, unsigned int);
 
 #define fork	fork_with_resources
 
+#ifdef EINTR				/* x2p do not include perl.h!!! */
 static __inline__ int
 my_select(int nfds, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct timeval *timeout)
 {
@@ -753,6 +754,7 @@ my_select(int nfds, fd_set *readfds, fd_set *writefds, fd_set *exceptfds, struct
 }
 
 #define select		my_select
+#endif
 
 
 typedef int (*Perl_PFN)();