2 #define PERL_IN_GLOBALS_C
10 #define PERLVARI(x, y, z) PL_##x = z;
12 #define PERLVARIC(x, y, z) PL_##x = z;
14 CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd,
15 IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS,
18 memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*));
34 CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
37 return pvtbl->Malloc(nSize);
43 CPerlObj::ErrorNo(void)
53 #ifdef WIN32 /* XXX why are these needed? */
55 Perl_do_exec(pTHX_ char *cmd)
57 return PerlProc_Cmd(cmd);
61 S_do_aspawn(pTHX_ void *vreally, void **vmark, void **vsp)
63 return PerlProc_aspawn(vreally, vmark, vsp);
67 #endif /* PERL_OBJECT */