diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-03 20:27:49 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-03 20:27:49 +0000 |
| commit | eccd403f7f94e536c86d76b08601e70486b1f6c3 (patch) | |
| tree | f2d8a4c8a69cf4df71d2ed6eda4471cf2b8366f9 /epoc | |
| parent | be6bd645f6be4d28e5d344c51889c6b67bdf5a74 (diff) | |
| download | perl-eccd403f7f94e536c86d76b08601e70486b1f6c3.tar.gz | |
EPOC tweaks from Olaf Flebbe.
p4raw-id: //depot/perl@15718
Diffstat (limited to 'epoc')
| -rw-r--r-- | epoc/epoc.c | 5 | ||||
| -rw-r--r-- | epoc/epocish.h | 20 |
2 files changed, 14 insertions, 11 deletions
diff --git a/epoc/epoc.c b/epoc/epoc.c index 61c8d28cf5..6a463c6887 100644 --- a/epoc/epoc.c +++ b/epoc/epoc.c @@ -124,8 +124,3 @@ Perl_init_os_extras(void) newXS("EPOC::getcwd", epoc_getcwd, file); } -void -Perl_my_setenv(pTHX_ char *nam,char *val) { - - setenv( nam, val, 1); -} 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 + + |