X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fepocish.h;h=75a64fcda0788555813e55e798a192db27f6a53a;hb=301e812593b886ce092a67093cee831022be6f82;hp=49cac27000015ed60e2f3fc28fca30e0b61b1027;hpb=14bdf8d3bfc4c68a9e0d4420c4db2eccd669ea5d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/epocish.h b/epoc/epocish.h
index 49cac27..75a64fc 100644
--- a/epoc/epocish.h
+++ b/epoc/epocish.h
@@ -36,7 +36,7 @@
   
 /* USEMYBINMODE
  *	This symbol, if defined, indicates that the program should
- *	use the routine my_binmode(FILE *fp, char iotype) to insure
+ *	use the routine my_binmode(FILE *fp, char iotype, int mode) to insure
  *	that a file is in "binary" mode -- that is, that no translation
  *	of bytes occurs on read or write operations.
  */
@@ -118,3 +118,25 @@
 
 #define dXSUB_SYS
 
+/* getsockname returns the size of struct sockaddr_in *without* padding */
+#define  BOGUS_GETNAME_RETURN 8
+
+/* 
+   read() on a socket blocks until buf is filled completly, 
+   recv() returns each massage 
+*/
+#define PERL_SOCK_SYSREAD_IS_RECV
+
+/* No /dev/random available*/
+
+#define PERL_NO_DEV_RANDOM
+
+/*
+   work around for buggy atof():
+   atof() in ER5 stdlib depends on locale. 
+*/
+
+double epoc_atof( const char *ptr);
+#define atof(a) epoc_atof(a)
+
+