diff options
Diffstat (limited to 'epoc/epocish.h')
| -rw-r--r-- | epoc/epocish.h | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/epoc/epocish.h b/epoc/epocish.h index a98faa0415..b9556753cd 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 + + |