fix arg to PERL_SYS_INIT3

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@1156 726aef4b-f618-498e-8847-2d620e286838

diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 15be8151f107c1e6500dc16c3a6489d3daa2c118..7e39a6caf61bca39400ff552bfdc42c6e54ad083 100644 (file)
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -986,7 +986,7 @@ bool CModPerl::OnLoad(const CString & sArgs, CString & sMessage)
 {
        const int iArgc = 5;
        const char *pArgv[] = { "", "-e", "0", "-T", "-w", NULL };
-       PERL_SYS_INIT3( &iArgc, &pArgc, NULL );
+       PERL_SYS_INIT3( &iArgc, &pArgv, NULL );
        m_pPerl = perl_alloc();
        perl_construct(m_pPerl);