changing data types back to proper notation, and down cast the array passed in

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@1158 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
imaginos
2008-08-17 18:46:43 +00:00
parent 5fbc0aa538
commit 5f0846fc9a

View File

@@ -985,8 +985,8 @@ EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
bool CModPerl::OnLoad(const CString & sArgs, CString & sMessage)
{
int iArgc = 5;
char *pArgv[] = { "", "-e", "0", "-T", "-w", NULL };
PERL_SYS_INIT3( &iArgc, &pArgv, NULL );
const char * pArgv[] = { "", "-e", "0", "-T", "-w", NULL };
PERL_SYS_INIT3( &iArgc, (char ***)&pArgv, &environ );
m_pPerl = perl_alloc();
perl_construct(m_pPerl);