sbolint: special case for perl builds;

1 files changed, 8 insertions, 1 deletions

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