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

diff --git a/NetWare/nwperlsys.c b/NetWare/nwperlsys.c
index 4fc65d3..9eca522 100644
--- a/NetWare/nwperlsys.c
+++ b/NetWare/nwperlsys.c
@@ -87,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,
@@ -169,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,