From 3075ddba723b9b3d732695035818e7b3e7287e85 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 28 Jul 1999 18:08:06 +0000
Subject: misc PERL_OBJECT tweaks; perlcore.dll is now perl56.dll

p4raw-id: //depot/perl@3819
---
 globals.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'globals.c')

diff --git a/globals.c b/globals.c
index fc88f31b3c..9777273ee6 100644
--- a/globals.c
+++ b/globals.c
@@ -35,12 +35,19 @@ CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd,
 void*
 CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
 {
-    if(pvtbl != NULL)
+    if(pvtbl)
 	return pvtbl->pMalloc(pvtbl, nSize);
 
     return NULL;
 }
 
+void
+CPerlObj::operator delete(void *pPerl, IPerlMem *pvtbl)
+{
+    if(pvtbl)
+	pvtbl->pFree(pvtbl, pPerl);
+}
+
 void
 CPerlObj::Init(void)
 {
-- 
cgit v1.2.1