int
do_spawn( char *cmd) {
- dTHXo;
+ dTHX;
char *argv0, *ptr;
char *cmdptr = cmd;
int ret;
int
do_aspawn ( void *vreally, void **vmark, void **vsp) {
- dTHXo;
+ dTHX;
SV *really = (SV*)vreally;
SV **mark = (SV**)vmark;
void
Perl_init_os_extras(void)
{
- dTHXo;
+ dTHX;
char *file = __FILE__;
newXS("EPOC::getcwd", epoc_getcwd, file);
}