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 #endif /* PERL_OBJECT */