From 602bd53d3e1cf62ba62efa9229c50634bbc9df08 Mon Sep 17 00:00:00 2001
From: prozacx <prozacx@726aef4b-f618-498e-8847-2d620e286838>
Date: Wed, 7 Sep 2005 06:56:54 +0000
Subject: [PATCH] Got rid of some warnings that were given on a redhat opteron
 in 64bit

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

diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index b597b722..cade4562 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -720,7 +720,7 @@ XS(XS_ZNC_WriteSock)
 		{
 			PString sReturn = false;
 			int iSockFD = SvIV(ST(0));
-			u_int iLen = SvUV(ST(2));
+			STRLEN iLen = SvUV(ST(2));
 			if ( iLen > 0 )
 			{
 				PString sData;
@@ -877,7 +877,6 @@ XS(XS_ZNC_COREListen)
 bool CModPerl::Eval( const CString & sScript, const CString & sFuncName )
 {
 	dSP;
-	ENTER;
 	SAVETMPS;
 
 	PUSHMARK( SP );
@@ -897,7 +896,6 @@ bool CModPerl::Eval( const CString & sScript, const CString & sFuncName )
 	}
 	PUTBACK;
 	FREETMPS;
-	LEAVE;
 
 	return( bReturn );
 }
@@ -909,7 +907,6 @@ CModPerl::EModRet CModPerl::CallBack( const PString & sHookName, const VPString
 		return( CONTINUE );
 	
 	dSP;
-	ENTER;
 	SAVETMPS;
 
 	PUSHMARK( SP );
@@ -961,7 +958,6 @@ CModPerl::EModRet CModPerl::CallBack( const PString & sHookName, const VPString
 
 	PUTBACK;
 	FREETMPS;
-	LEAVE;
 
 	return( (CModPerl::EModRet)iRet );
 }