nanosleep probes as per Jarkko's request

[p5sagit/p5-mst-13.2.git] / epoc / epocish.h

diff --git a/epoc/epocish.h b/epoc/epocish.h
index a98faa0..b955675 100644 (file)
--- a/epoc/epocish.h
+++ b/epoc/epocish.h
@@ -105,9 +105,10 @@
 #define Fflush(fp)         fflush(fp)
 #define Mkdir(path,mode)   mkdir((path),(mode))
 
-/* these should be set in a hint file, not here */
+
+/* epocemx setenv bug workaround */
 #ifndef PERL_SYS_INIT
-#    define PERL_SYS_INIT(c,v)  MALLOC_INIT
+#    define PERL_SYS_INIT(c,v)    putenv(".dummy=foo"); putenv(".dummy"); MALLOC_INIT
 #endif
 
 #ifndef PERL_SYS_TERM
@@ -122,11 +123,15 @@
 #define  BOGUS_GETNAME_RETURN 8
 
 /* 
-   read() on a socket blocks until buf is filled completly, 
-   recv() returns each massage 
+   read() on a socket is unimplemented in current epocemx
+   use recv() instead
 */
+
 #define PERL_SOCK_SYSREAD_IS_RECV
 
+/* write ditto, use send */
+#define PERL_SOCK_SYSWRITE_IS_SEND
+
 /* No /dev/random available*/
 
 #define PERL_NO_DEV_RANDOM
@@ -140,9 +145,12 @@
 
 #define init_os_extras Perl_init_os_extras
 
-#define NO_ENVIRON_ARRAY
-
 #define ARG_MAX 4096
 
 #define ECONNABORTED 0xdead
 
+/* For environ */
+#include <emx.h>
+#define PERL_USE_SAFE_PUTENV
+
+