sbolint: check for multiple .SlackBuild files

1 files changed, 8 insertions, 6 deletions

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