test tweak for VMS (from Craig A. Berry)
[p5sagit/p5-mst-13.2.git] / epoc / epoc_stubs.c
CommitLineData
14bdf8d3 1/*
2 * Copyright (c) 1999 Olaf Flebbe o.flebbe@gmx.de
3 *
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.
6 *
7 */
8
9int getgid() {return 0;}
10int getegid() {return 0;}
11int geteuid() {return 0;}
12int getuid() {return 0;}
13int setgid() {return -1;}
14int setuid() {return -1;}
15
16int Perl_my_popen( int a, int b) {
17 return 0;
18}
19int Perl_my_pclose( int a) {
20 return 0;
21}
22
23kill() {}
24signal() {}
25
26void execv() {}
27void execvp() {}
28void do_spawn() {}
29void do_aspawn() {}
30void Perl_do_exec() {}
31