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 (file)
--- 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)();