From f731c0cdef44e4fa6c774f66476d4f0d111f5302 Mon Sep 17 00:00:00 2001
From: imaginos <imaginos@726aef4b-f618-498e-8847-2d620e286838>
Date: Wed, 18 May 2005 22:25:47 +0000
Subject: [PATCH] allow embedded packages in module

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

diff --git a/modules/modperl.pm b/modules/modperl.pm
index 8fb97998..748cba98 100644
--- a/modules/modperl.pm
+++ b/modules/modperl.pm
@@ -84,20 +84,11 @@ sub CORELoadMod
 		}
 	}
 	
-	my $pkgcount = 0;
 	while( <INMOD> )
 	{
-		if ( $_ =~ /^\s*package\s*.+;/ )
+		if ( $_ =~ /^\s*package\s*$Module\s*;/ )
 		{
-			if ( $pkgcount > 0 )
-			{
-				ZNC::PutModule( "Only 1 package declaration per file!" );
-				close( INMOD );
-				close( OUTMOD );
-				return( HALDMODS() );
-			}
 			print OUTMOD "package $Username$Module;\n";
-			$pkgcount++;
 		}
 		else
 		{