diff options
| -rwxr-xr-x | sbolint | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -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)) { |