diff options
Diffstat (limited to 'pkgtools/pkglint/files/pkglint.pl')
-rw-r--r-- | pkgtools/pkglint/files/pkglint.pl | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl index 8fa7223be55..080b5f17981 100644 --- a/pkgtools/pkglint/files/pkglint.pl +++ b/pkgtools/pkglint/files/pkglint.pl @@ -12,7 +12,7 @@ # Freely redistributable. Absolutely no warranty. # # From Id: portlint.pl,v 1.64 1998/02/28 02:34:05 itojun Exp -# $NetBSD: pkglint.pl,v 1.21 2000/01/02 03:40:21 wiz Exp $ +# $NetBSD: pkglint.pl,v 1.22 2000/01/05 12:54:32 abs Exp $ # # This version contains some changes necessary for NetBSD packages # done by Hubert Feyrer <hubertf@netbsd.org> and @@ -269,14 +269,24 @@ sub checkdescr { print "OK: $file has $linecnt lines.\n" if ($verbose); } if ($longlines > 0) { - &perror("WARN: $i includes lines that exceed $maxchars{$file} ". - "characters."); + &perror("WARN: $file includes lines that exceed ". + "$maxchars{$file} characters."); } if ($tmp =~ /[\033\200-\377]/) { - &perror("WARN: pkg/DESCR includes iso-8859-1, or ". + &perror("WARN: $file includes iso-8859-1, or ". "other local characters. $file should be ". "plain ascii file."); } + if ($file eq 'pkg/COMMENT' && $tmp =~ /\.$/i) { + &perror("WARN: $file should not end with a '.' (period)."); + } + if ($file eq 'pkg/COMMENT' && $tmp =~ /^(a|an) /i) { + &perror("WARN: $file should not begin with '$1 '."); + } + if ($file eq 'pkg/COMMENT' && ($tmp =~ /^\s/ || $tmp =~ /\s\n$/)) { + &perror("WARN: $file should not not have any leading or ". + "trailing whitespace."); + } close(IN); } |