X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fepocish.h;h=b9556753cd9ae1c99e6a4333398580c561a4b889;hb=0d658bf5a06395c253c09769a32f6face7d329cb;hp=a98faa0415768a1c40c5ddf493a6a47352c2bbec;hpb=85ca448a836bf0ba175d8874ee540094ff909f93;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/epocish.h b/epoc/epocish.h
index a98faa0..b955675 100644
--- 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
+
+