[SCM] Debian package checker branch, master, updated. 2.5.10-39-ga32aa3f
The following commit has been merged in the master branch:
commit a32aa3f0bc5f5cae704c33eb4a4c1c2fcc9c1991
Author: Niels Thykier <niels@thykier.net>
Date: Fri Jul 13 22:16:14 2012 +0200
c/manpages: Remove some unneeded regex capture groups
Signed-off-by: Niels Thykier <niels@thykier.net>
diff --git a/checks/manpages b/checks/manpages
index 839795e..3b6fd90 100644
--- a/checks/manpages
+++ b/checks/manpages
@@ -226,7 +226,7 @@ foreach my $file ($info->sorted_index) {
$desc =~ s/^[^:]+: \"(.*)\"$/$1/;
if ($desc =~ /(\S+)\s+-\s+manual page for \1/i) {
tag 'manpage-has-useless-whatis-entry', $file;
- } elsif ($desc =~ /(\S+)\s+-\s+programs? to do something/i) {
+ } elsif ($desc =~ /\S+\s+-\s+programs? to do something/i) {
tag 'manpage-is-dh_make-template', $file;
}
1 while <LEXGROG>;
@@ -276,7 +276,7 @@ foreach my $file ($info->sorted_index) {
next if /^Reformatting/;
next if /^\s*$/;
# ignore errors from gzip, will be dealt with at other places
- next if /^(man|gzip)/;
+ next if /^(?:man|gzip)/;
# ignore wrapping failures for Asian man pages (groff problem)
if ($lang =~ /^(?:ja|ko|zh)/) {
next if /warning \[.*\]: cannot adjust line/;
@@ -284,11 +284,11 @@ foreach my $file ($info->sorted_index) {
}
# ignore wrapping failures if they contain URLs (.UE is an
# extension for marking the end of a URL).
- next if /:(\d+): warning \[.*\]: (can\'t break|cannot adjust) line/
+ next if /:(\d+): warning \[.*\]: (?:can\'t break|cannot adjust) line/
and ( $manfile[$1 - 1] =~ m,(?:https?|ftp)://.+,i
or $manfile[$1 - 1] =~ m,^\s*\.\s*UE\b,);
# ignore common undefined macros from pod2man << Perl 5.10
- next if /warning: (?:macro )?\`(Tr|IX)\' not defined/;
+ next if /warning: (?:macro )?\`(?:Tr|IX)\' not defined/;
chomp;
s/^[^:]+://o;
tag 'manpage-has-errors-from-man', $file, $_;
--
Debian package checker
Reply to: