void*
CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
{
- if(pvtbl != NULL)
+ if(pvtbl)
return pvtbl->pMalloc(pvtbl, nSize);
return NULL;
}
void
-CPerlObj::Init(void)
+CPerlObj::operator delete(void *pPerl, IPerlMem *pvtbl)
{
+ if(pvtbl)
+ pvtbl->pFree(pvtbl, pPerl);
}
-int
-CPerlObj::fprintf(PerlIO *stream, const char *format, ...)
+void
+CPerlObj::Init(void)
{
- va_list(arglist);
- va_start(arglist, format);
- return PerlIO_vprintf(stream, format, arglist);
}
#ifdef WIN32 /* XXX why are these needed? */
#endif /* WIN32 */
#endif /* PERL_OBJECT */
+
+int
+Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
+{
+ dTHX;
+ va_list(arglist);
+ va_start(arglist, format);
+ return PerlIO_vprintf(stream, format, arglist);
+}