epoc/epoc_stubs.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

/*
 *    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 setgid() {return -1;}
int setuid() {return -1;}

int execv() { return -1;}
int execvp() { return -1;}

void Perl_do_exec() {}