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