--- ./os2/os2ish.h-pre	Fri Jul  4 08:12:08 2003
+++ ./os2/os2ish.h	Sun Jul 27 04:17:10 2003
@@ -742,6 +742,7 @@ char *perllib_mangle(char *, unsigned in
 
 #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)
 {
@@ -755,6 +756,7 @@ my_select(int nfds, fd_set *readfds, fd_
 }
 
 #define select		my_select
+#endif
 
 
 typedef int (*Perl_PFN)();
