Even better version from Olaf Flebbe.

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

diff --git a/epoc/epocish.h b/epoc/epocish.h
index f4be0ff..a98faa0 100644 (file)
--- a/epoc/epocish.h
+++ b/epoc/epocish.h
@@ -107,23 +107,20 @@
 
 /* these should be set in a hint file, not here */
 #ifndef PERL_SYS_INIT
-#    define PERL_SYS_INIT(c,v)  Perl_epoc_init(c,v);   MALLOC_INIT
+#    define PERL_SYS_INIT(c,v)  MALLOC_INIT
 #endif
 
 #ifndef PERL_SYS_TERM
 #define PERL_SYS_TERM()                MALLOC_TERM
 #endif
 
-#define BIT_BUCKET "NUL:"
+#define BIT_BUCKET "/dev/null"
 
 #define dXSUB_SYS
 
 /* getsockname returns the size of struct sockaddr_in *without* padding */
 #define  BOGUS_GETNAME_RETURN 8
 
-/* Yes, size_t is size_t */
-#define Sock_size_t size_t
-
 /* 
    read() on a socket blocks until buf is filled completly, 
    recv() returns each massage 
@@ -133,3 +130,19 @@
 /* No /dev/random available*/
 
 #define PERL_NO_DEV_RANDOM
+
+/*
+   work around for buggy atof():
+   atof() in ER5 stdlib depends on locale. 
+*/
+
+#define strtoul(a,b,c) epoc_strtoul(a,b,c)
+
+#define init_os_extras Perl_init_os_extras
+
+#define NO_ENVIRON_ARRAY
+
+#define ARG_MAX 4096
+
+#define ECONNABORTED 0xdead
+