From 5fbc0aa5384358a6f300f5f5486ea9df443fc9b1 Mon Sep 17 00:00:00 2001
From: imaginos <imaginos@726aef4b-f618-498e-8847-2d620e286838>
Date: Sun, 17 Aug 2008 18:02:09 +0000
Subject: [PATCH] remove const keywords for perl's sake

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@1157 726aef4b-f618-498e-8847-2d620e286838
---
 modules/modperl.cpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 7e39a6ca..9ff54c73 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -984,8 +984,8 @@ EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
 
 bool CModPerl::OnLoad(const CString & sArgs, CString & sMessage)
 {
-	const int iArgc = 5;
-	const char *pArgv[] = { "", "-e", "0", "-T", "-w", NULL };
+	int iArgc = 5;
+	char *pArgv[] = { "", "-e", "0", "-T", "-w", NULL };
 	PERL_SYS_INIT3( &iArgc, &pArgv, NULL );
 	m_pPerl = perl_alloc();
 	perl_construct(m_pPerl);