From 02be1cce5696dcf000f5b5abbf30711835667469 Mon Sep 17 00:00:00 2001
From: imaginos <imaginos@726aef4b-f618-498e-8847-2d620e286838>
Date: Wed, 25 May 2005 04:25:28 +0000
Subject: [PATCH] move Shutdown to OnShutdown, send DumpError to err as well

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

diff --git a/modules/g_modperl.cpp b/modules/g_modperl.cpp
index 7eb78ee0..84d44736 100644
--- a/modules/g_modperl.cpp
+++ b/modules/g_modperl.cpp
@@ -213,7 +213,7 @@ public:
 			for( map<CString,CUser*>::const_iterator it = msUsers.begin(); it != msUsers.end(); it++ )
 			{ // need to set it on all of these
 				m_pUser = it->second;
-				CBNone( "Shutdown" );
+				CBNone( "OnShutdown" );
 				m_pUser = NULL;
 			}
 			PerlInterpShutdown();
@@ -268,6 +268,7 @@ public:
 				sTmp[a] = ' ';
 		}
 		PutModule( sTmp );
+		DEBUG_ONLY( cerr << sTmp << endl );
 	}
 
 	TSocketManager<Csock> * GetSockManager() { return( m_pManager ); }
@@ -990,18 +991,6 @@ bool CModPerl::OnLoad( const CString & sArgs )
 	newCONSTSUB( pZNCSpace, "HALTMODS", newSViv( HALTMODS ) );
 	newCONSTSUB( pZNCSpace, "HALTCORE", newSViv( HALTCORE ) );
 
-	/*
-	 * this goes away
-	for( u_int a = 0; a < 255; a++ )
-	{
-		CString sModule = sArgs.Token( a );
-		if ( sModule.empty() )
-			break;
-
-		LoadPerlMod( sModule );
-	}
-	*/
-
 	return( true );
 }