From 8857b3ba84e20fba173ff40bb823c313dfb809a4 Mon Sep 17 00:00:00 2001
From: imaginos <imaginos@726aef4b-f618-498e-8847-2d620e286838>
Date: Wed, 18 May 2005 23:07:52 +0000
Subject: [PATCH] remove it on unload as well

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

diff --git a/modules/modperl.pm b/modules/modperl.pm
index 4403995a..d9b5e4fc 100644
--- a/modules/modperl.pm
+++ b/modules/modperl.pm
@@ -139,8 +139,13 @@ sub COREUnloadMod
 	{
 		if ( ( $MODS[$i]->{ZNC_Username} eq $Username ) && ( $MODS[$i]->{ZNC_Name} eq $Module ) )
 		{
+			my $filename = $MODS[$i]->{ZNC_ModPath};
 			undef $MODS[$i];
 			splice( @MODS, $i, 1 );
+			if ( $INC{$filename} )
+			{ # remove the $INC instantiation
+				delete $INC{$filename};
+			}
 			ZNC::PutModule( "Unloaded $Module" );
 			return( CONTINUE() );
 		}