From 4b53b20584d5581f966442cd5316fc64f5920e60 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sat, 4 Jan 2020 15:34:59 -0500
Subject: sbolint: special case for perl builds;

---
 sbolint | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'sbolint')

diff --git a/sbolint b/sbolint
index 6c8f5b7..590f704 100755
--- a/sbolint
+++ b/sbolint
@@ -279,7 +279,6 @@ use POSIX qw/getcwd/;
 	qr/#\s*Strip binaries and libraries - this can be done with/,
 	qr/#\s*Compress man pages$/,
 	qr/#\s*Compress info pages and remove the/,
-	qr/#\s*Remove perllocal.pod and other special files/,
 	qr/#\s*Copy program documentation into the package/,
 	qr/#\s*Copy the slack-desc \(and a custom doinst\.sh if necessary\)/,
 	qr/#\s*Make the package; be sure to leave it in/,
@@ -1030,6 +1029,14 @@ sub check_script {
 		if(grep { $line =~ /$_/ } @boilerplate) {
 			log_error("$file:$lineno: template comment should be removed");
 		}
+
+		# special case here: don't complain about this comment if it's a perl-* build
+		if($file !~ /^perl-/) {
+			if($line =~ /#\s*Remove perllocal.pod and other special files/) {
+				log_error("$file:$lineno: template comment should be removed");
+			}
+		}
+
 	}
 
 	if(not defined($prgnam)) {
-- 
cgit v1.2.3