X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=epoc%2Fepoc_stubs.c;h=2d1b09daf69e17ebbfb88dc6d4fa9565d54c37af;hb=b42969c054c571b3b721d68818184e59ca761058;hp=c1c6bcf9e09e559f63741fd0ccef4f27bbb02f57;hpb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/epoc/epoc_stubs.c b/epoc/epoc_stubs.c
index c1c6bcf..2d1b09d 100644
--- a/epoc/epoc_stubs.c
+++ b/epoc/epoc_stubs.c
@@ -6,62 +6,13 @@
  *
  */
 
-#include <string.h>
-
-int getgid() {return 0;}
-int getegid() {return 0;}
-int geteuid() {return 0;}
-int getuid() {return 0;}
 int setgid() {return -1;}
 int setuid() {return -1;}
 
-
-int Perl_my_popen( int a, int b) {
-	 return NULL;
-}
-int Perl_my_pclose( int a) {
-	 return NULL;
-}
-
-int kill() {return -1;}
-signal() { }
-
 int execv() { return -1;}
 int execvp() { return -1;}
 
 void Perl_do_exec() {}
 
-/*------------------------------------------------------------------*/
-/* Two dummy functions implement getproto*                          */
-/*------------------------------------------------------------------*/
-#include <sys/types.h>
-#include <netdb.h>
-#include <netinet/in.h>
-
-
-static struct protoent protos[2] = {
-  {"tcp",  NULL, IPPROTO_TCP} ,
-  {"udp",  NULL, IPPROTO_UDP}};
-
-struct protoent *getprotobyname (const char *st) {
-    
-  if (!strcmp( st, "tcp")) { 
-    return &protos[0];
-  }
-  if (!strcmp( st, "udp")) { 
-    return &protos[1];
-  }
-  return NULL;
-}
-
-struct protoent *getprotobynumber ( int i) {
-  if (i == IPPROTO_TCP) {
-     return &protos[0];
-  }
-  if (i == IPPROTO_UDP) {
-    return &protos[1];
-  }
-  return NULL;
-}