2 * Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de
4 * You may distribute under the terms of either the GNU General Public
5 * License or the Artistic License, as specified in the README file.
11 int getgid() {return 0;}
12 int getegid() {return 0;}
13 int geteuid() {return 0;}
14 int getuid() {return 0;}
15 int setgid() {return -1;}
16 int setuid() {return -1;}
19 int Perl_my_popen( int a, int b) {
22 int Perl_my_pclose( int a) {
26 int kill() {return -1;}
29 int execv() { return -1;}
30 int execvp() { return -1;}
32 void Perl_do_exec() {}
34 /*------------------------------------------------------------------*/
35 /* Two dummy functions implement getproto* */
36 /*------------------------------------------------------------------*/
37 #include <sys/types.h>
39 #include <netinet/in.h>
42 static struct protoent protos[2] = {
43 {"tcp", NULL, IPPROTO_TCP} ,
44 {"udp", NULL, IPPROTO_UDP}};
46 struct protoent *getprotobyname (const char *st) {
48 if (!strcmp( st, "tcp")) {
51 if (!strcmp( st, "udp")) {
57 struct protoent *getprotobynumber ( int i) {
58 if (i == IPPROTO_TCP) {
61 if (i == IPPROTO_UDP) {