Author: rra
Date: 2006-07-15 05:31:59 +0200 (Sat, 15 Jul 2006)
New Revision: 697
Modified:
trunk/checks/manpages
Log:
Use consistent whitespace (tab vs. space) in the last change.
Modified: trunk/checks/manpages
===================================================================
--- trunk/checks/manpages 2006-07-15 03:25:17 UTC (rev 696)
+++ trunk/checks/manpages 2006-07-15 03:31:59 UTC (rev 697)
@@ -229,7 +229,7 @@
# If it's not a .so link, use lexgrog to find out if the man page
# parses correctly and make sure the short description is reasonable.
- #
+ #
# This check is currently not applied to pages in language-specific
# hierarchies, because those pages are not currently scanned by
# mandb (bug #29448), and because lexgrog can't handle pages in all
@@ -237,24 +237,24 @@
# negatives. When man-db is fixed, this limitation should be
# removed.
if ($path =~ m,/man/man\d/,) {
- my $pid = open LEXGROG, '-|';
- if (not defined $pid) {
- fail("cannot run lexgrog: $!");
- } elsif ($pid == 0) {
- my %newenv = (LANG => 'C', PATH => $ENV{PATH});
- undef %ENV;
- %ENV = %newenv;
- exec "lexgrog unpacked/\Q$file\E 2>&1"
- or fail("cannot run lexgrog: $!");
- }
- my $desc = <LEXGROG>;
- $desc =~ s/^[^:]+: \"(.*)\"$/$1/;
- if ($desc =~ /(\S+)\s+-\s+manual page for \1/i) {
- tag "manpage-has-useless-whatis-entry", "$file";
- }
- 1 while <LEXGROG>;
- close LEXGROG;
- tag "manpage-has-bad-whatis-entry", "$file" if $? != 0;
+ my $pid = open LEXGROG, '-|';
+ if (not defined $pid) {
+ fail("cannot run lexgrog: $!");
+ } elsif ($pid == 0) {
+ my %newenv = (LANG => 'C', PATH => $ENV{PATH});
+ undef %ENV;
+ %ENV = %newenv;
+ exec "lexgrog unpacked/\Q$file\E 2>&1"
+ or fail("cannot run lexgrog: $!");
+ }
+ my $desc = <LEXGROG>;
+ $desc =~ s/^[^:]+: \"(.*)\"$/$1/;
+ if ($desc =~ /(\S+)\s+-\s+manual page for \1/i) {
+ tag "manpage-has-useless-whatis-entry", "$file";
+ }
+ 1 while <LEXGROG>;
+ close LEXGROG;
+ tag "manpage-has-bad-whatis-entry", "$file" if $? != 0;
}
# If it's not a .so link, run it through "man" to check for errors.
# If it is in a directory with the standard man layout, cd to the
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
