From d53fa7b85d0de21c21a1ff0ba12362220791bbec Mon Sep 17 00:00:00 2001
From: imaginos <imaginos@726aef4b-f618-498e-8847-2d620e286838>
Date: Mon, 17 Mar 2008 02:40:38 +0000
Subject: [PATCH] throw an warning if package definition is not found

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

diff --git a/modules/modperl.pm b/modules/modperl.pm
index 9058d8f7..580246ba 100644
--- a/modules/modperl.pm
+++ b/modules/modperl.pm
@@ -83,11 +83,13 @@ sub CORELoadMod
 		}
 	}
 
+	my $bFoundPackage = 0;
 	while( <INMOD> )
 	{
 		if ( $_ =~ /^\s*package\s*$Module\s*;/ )
 		{
 			print OUTMOD "package $Username$Module;\n";
+			$bFoundPackage = 1;
 		}
 		else
 		{
@@ -97,6 +99,11 @@ sub CORELoadMod
 	close( INMOD );
 	close( OUTMOD );
 
+	if( !$bFoundPackage )
+	{
+		ZNC::PutModule( "Warning, did not find 'package $Module;' in $FileName" );
+	}
+
 	if ( $INC{$FileName} )
 	{ # force a delete on this guy
 		delete $INC{$FileName};