[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[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: