diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-06-19 13:12:18 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-06-21 07:59:03 -0600 |
| commit | a44ad49498f7c430ed5ae45922dd12bade903ec2 (patch) | |
| tree | 308b074bc852cf92f9ca6950224875c1164014a7 /t | |
| parent | f274fe9fcae30962c58d0f51c97a3f41f362e834 (diff) | |
| download | perl-a44ad49498f7c430ed5ae45922dd12bade903ec2.tar.gz | |
podcheck.t: Reduce F<> message false positives
podcheck looks for things that might be file path references which
are enclosed in C<> instead of F<>. But there are some things that
aren't paths that have slashes in them, like "origin/blead" This
adds some more of these.
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/known_pod_issues.dat | 5 | ||||
| -rw-r--r-- | t/porting/podcheck.t | 15 |
2 files changed, 13 insertions, 7 deletions
diff --git a/t/porting/known_pod_issues.dat b/t/porting/known_pod_issues.dat index fc03178d32..b9fcfa0824 100644 --- a/t/porting/known_pod_issues.dat +++ b/t/porting/known_pod_issues.dat @@ -227,7 +227,6 @@ pod/perlfaq8.pod Verbatim line length including indents exceeds 80 by 20 pod/perlfaq9.pod Verbatim line length including indents exceeds 80 by 7 pod/perlfunc.pod There is more than one target 1 pod/perlfunc.pod Verbatim line length including indents exceeds 80 by 183 -pod/perlgit.pod ? Should you be using F<...> or maybe L<...> instead of 2 pod/perlgit.pod Verbatim line length including indents exceeds 80 by 14 pod/perlgpl.pod Verbatim line length including indents exceeds 80 by 50 pod/perlguts.pod ? Should you be using F<...> or maybe L<...> instead of 2 @@ -258,7 +257,7 @@ pod/perlmroapi.pod ? Should you be using L<...> instead of 1 pod/perlnetware.pod Verbatim line length including indents exceeds 80 by 4 pod/perlnewmod.pod Verbatim line length including indents exceeds 80 by 1 pod/perlop.pod Verbatim line length including indents exceeds 80 by 30 -pod/perlos2.pod ? Should you be using F<...> or maybe L<...> instead of 3 +pod/perlos2.pod ? Should you be using F<...> or maybe L<...> instead of 1 pod/perlos2.pod ? Should you be using L<...> instead of 1 pod/perlos2.pod Apparent broken link 7 pod/perlos2.pod Apparent internal link is missing its forward slash 3 @@ -277,7 +276,6 @@ pod/perlrequick.pod Verbatim line length including indents exceeds 80 by 3 pod/perlretut.pod Verbatim line length including indents exceeds 80 by 13 pod/perlrun.pod Apparent broken link 3 pod/perlrun.pod Verbatim line length including indents exceeds 80 by 17 -pod/perlsec.pod ? Should you be using F<...> or maybe L<...> instead of 1 pod/perlsec.pod Verbatim line length including indents exceeds 80 by 1 pod/perlsolaris.pod Apparent broken link 1 pod/perlsolaris.pod Verbatim line length including indents exceeds 80 by 14 @@ -350,7 +348,6 @@ lib/term/readline.pm Verbatim line length including indents exceeds 80 by 1 lib/tie/array.pm Verbatim line length including indents exceeds 80 by 1 lib/tie/hash.pm Verbatim line length including indents exceeds 80 by 3 lib/tie/scalar.pm Verbatim line length including indents exceeds 80 by 1 -lib/unicode/ucd.pm ? Should you be using F<...> or maybe L<...> instead of 1 lib/unicode/ucd.pm Verbatim line length including indents exceeds 80 by 1 lib/deprecate.pm Verbatim line length including indents exceeds 80 by 2 lib/integer.pm Verbatim line length including indents exceeds 80 by 1 diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index 21ffeed9c3..1b9e4f11a3 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -648,9 +648,18 @@ package My::Pod::Checker { # Extend Pod::Checker # Matches something that looks like a file name, but is enclosed in # C<...> my $C_path_re = qr{ \b ( C< - # exclude regexes and 'OS/2' - (?! (?: (?: s | qr | m) / ) | OS/2 > ) - [-\w]+ (?: / [-\w]+ )+ (?: \. \w+ )? > ) + # exclude various things that have slashes + # in them but aren't paths + (?! + (?: (?: s | qr | m) / ) # regexes + | \d+/\d+> # probable fractions + | OS/2> + | Perl/Tk> + | origin/blead> + | origin/maint + | - # File names don't begin with "-" + ) + [-\w]+ (?: / [-\w]+ )+ (?: \. \w+ )? > ) }x; # If looks like a reference to other documentation by containing the |