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 );
 }