X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=NetWare%2Fnwperlsys.c;h=9eca5225f7fac1f4bf5ad21b6dfb6c69a0bcd326;hb=b8d5f52139b667ea3276273b5665157310d1a461;hp=b1bf8ddd692e8b121593475d2cb66e397b079223;hpb=32ce01bccb8e58ee340ca4100517f9c031630ea7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/NetWare/nwperlsys.c b/NetWare/nwperlsys.c
index b1bf8dd..9eca522 100644
--- a/NetWare/nwperlsys.c
+++ b/NetWare/nwperlsys.c
@@ -20,10 +20,6 @@
 #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"
@@ -91,9 +87,8 @@ perl_alloc(void)
 	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,
@@ -102,9 +97,6 @@ perl_alloc(void)
 				   &perlSock,
 				   &perlProc);
 	if (my_perl) {
-#ifdef PERL_OBJECT
-	    CPerlObj* pPerl = (CPerlObj*)my_perl;
-#endif
 		//nw5_internal_host = m_allocList;
 	}
     return my_perl;
@@ -176,9 +168,8 @@ perl_alloc_override(struct IPerlMem** ppMem, struct IPerlMem** ppMemShared,
 		lpProc=&perlProc;
 	else
 		lpProc=*ppProc;
-
 	my_perl = perl_alloc_using(lpMem,
-				   NULL,
+				   lpMem,
 				   NULL,
 				   lpEnv,
 				   lpStdio,
@@ -188,9 +179,6 @@ perl_alloc_override(struct IPerlMem** ppMem, struct IPerlMem** ppMemShared,
 				   lpProc);
 	
 	if (my_perl) {
-#ifdef PERL_OBJECT
-	    CPerlObj* pPerl = (CPerlObj*)my_perl;
-#endif
 	    //nw5_internal_host = pHost;
 	}
     return my_perl;