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

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