From 5bf90f4063b34b4fe11e71707e893dcef2a4a446 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Tue, 8 Sep 2026 06:29:52 -0400
Subject: sbolint: check for multiple .SlackBuild files

---
 sbolint | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'sbolint')

diff --git a/sbolint b/sbolint
index 464c5f3..65bd0bd 100755
--- a/sbolint
+++ b/sbolint
@@ -1073,21 +1073,22 @@ sub check_slackdesc {
 	}
 }
 
-sub check_extra_info {
+sub check_multiples {
+	my $ext = shift;
 	my @i;
-	push @i, <*.info>;
-	push @i, <*/*.info>;
-	push @i, <*/*/*.info>;
+	push @i, <*.$ext>;
+	push @i, <*/*.$ext>;
+	push @i, <*/*/*.$ext>;
 	my $count = scalar @i;
 
 	if($count > 1) {
-	  log_error("multiple .info file(s) found: " . join(" ", @i));
+	  log_error("multiple .$ext files found: " . join(" ", @i));
 	}
 }
 
 # This is a damn mess. Needs refactoring badly.
 sub check_info {
-   check_extra_info();
+   check_multiples('info');
 	my $file = $buildname . ".info";
 	my @lines = check_and_read($file, 0644);
 	return unless scalar @lines;
@@ -1468,6 +1469,7 @@ sub script_exists {
 # - cp -a <documentation> is an error
 
 sub check_script {
+   check_multiples('SlackBuild');
 	my $file = $buildname . ".SlackBuild";
 
 	my $gotmode = get_mode($file);
-- 
cgit v1.2.3