X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=os2%2Fos2ish.h;h=0da62aad27b0ed5ee5d7b8f3d6e259f551c01b9e;hb=9483776f29dbf67c9f5f68dcc7dd77bf0eb0eeb5;hp=45e80b520831d91cae36531dda61b7a0f898f85a;hpb=1199dd43248b0956628341f2a63939a8378c8016;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/os2/os2ish.h b/os2/os2ish.h
index 45e80b5..0da62aa 100644
--- a/os2/os2ish.h
+++ b/os2/os2ish.h
@@ -218,7 +218,6 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
 
 #  define PERL_SYS_INIT3(argcp, argvp, envp)	\
   { void *xreg[2];				\
-    EARLY_INIT3(argcp, argvp, envp) 		\
     MALLOC_CHECK_TAINT(*argcp, *argvp, *envp)	\
     _response(argcp, argvp);			\
     _wildcard(argcp, argvp);			\
@@ -226,7 +225,6 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
 
 #  define PERL_SYS_INIT(argcp, argvp)  {	\
   { void *xreg[2];				\
-    EARLY_INIT2(argcp, argvp)			\
     _response(argcp, argvp);			\
     _wildcard(argcp, argvp);			\
     Perl_OS2_init3(NULL, xreg, 0)
@@ -235,11 +233,9 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
 
 #  define PERL_SYS_INIT3(argcp, argvp, envp)	\
   { void *xreg[2];				\
-    EARLY_INIT3(argcp, argvp, envp) 		\
     Perl_OS2_init3(*envp, xreg, 0)
 #  define PERL_SYS_INIT(argcp, argvp)	{	\
   { void *xreg[2];				\
-    EARLY_INIT2(argcp, argvp) 			\
     Perl_OS2_init3(NULL, xreg, 0)
 #endif
 
@@ -744,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)
 {
@@ -757,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)();