#include "perl.h"
-#ifdef PERL_OBJECT
-#define NO_XSLOCKS
-#endif
-
//CHKSGP
//Including this is giving premature end-of-file error during compilation
//#include "XSUB.h"
WCValHashTable<void*>* m_allocList;
m_allocList = new WCValHashTable<void*> (fnAllocListHash, 256);
fnInsertHashListAddrs(m_allocList, FALSE);
-
my_perl = perl_alloc_using(&perlMem,
- NULL,
+ &perlMem,
NULL,
&perlEnv,
&perlStdIO,
&perlSock,
&perlProc);
if (my_perl) {
-#ifdef PERL_OBJECT
- CPerlObj* pPerl = (CPerlObj*)my_perl;
-#endif
//nw5_internal_host = m_allocList;
}
return my_perl;
lpProc=&perlProc;
else
lpProc=*ppProc;
-
my_perl = perl_alloc_using(lpMem,
- NULL,
+ lpMem,
NULL,
lpEnv,
lpStdio,
lpProc);
if (my_perl) {
-#ifdef PERL_OBJECT
- CPerlObj* pPerl = (CPerlObj*)my_perl;
-#endif
//nw5_internal_host = pHost;
}
return my_perl;