epoc/epoc_stubs.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

/*
 *    Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de
 *    
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

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 0;
}
int Perl_my_pclose( int a) {
	 return 0;
}

kill() {}
signal() {}

void execv() {}
void execvp() {}
void do_spawn() {}
void do_aspawn() {}
void Perl_do_exec() {}