sbolint: make pkglist check case-insensitive.

1 files changed, 6 insertions, 3 deletions

diff --git a/sbolint b/sbolint
index 0f2c5e5..6416c9e 100755
--- a/sbolint
+++ b/sbolint
@@ -2116,13 +2116,16 @@ sub load_package_list {
 	open my $fh, "<", $file or die "$SELF: $file: $!";
 	while(<$fh>) {
 		chomp;
-		$pkglist{$_}++;
+		$pkglist{lc $_}++;
 	}
 	close $fh;
 
 	## warn "pkglist.txt loaded, " . (keys %pkglist) . " packages\n";
 }
 
+# logs an error if pkglist.txt has the same package name. note that this is
+# case-insensitive, so if someone tries to submit "mplayer", Slackware's
+# "MPlayer" will match.
 sub check_package_list {
 	if(!$pkglist_tried) {
 		load_package_list;
@@ -2131,8 +2134,8 @@ sub check_package_list {
 
 	return unless %pkglist;
 
-	if($pkglist{$buildname}) {
-		log_error("$buildname is a core Slackware package!");
+	if($pkglist{lc $buildname}) {
+		log_error("$buildname is already in core Slackware!");
 	}
 }