diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-06-19 13:11:25 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-06-21 07:59:02 -0600 |
| commit | f274fe9fcae30962c58d0f51c97a3f41f362e834 (patch) | |
| tree | e37e11409257519be3d3c7ef6de295e770d88193 /t | |
| parent | 4e9f7dd477c008212183d561d3dcd2e53ab9e6b2 (diff) | |
| download | perl-f274fe9fcae30962c58d0f51c97a3f41f362e834.tar.gz | |
podcheck.t: White-space only changes
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/podcheck.t | 73 |
1 files changed, 37 insertions, 36 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index dc358f3459..21ffeed9c3 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -677,42 +677,43 @@ package My::Pod::Checker { # Extend Pod::Checker # beginning of a sentence. if ($prefix !~ / \b you \b /x) { - # Now, find what the module or man page name within the construct - # would be if it actually has L<> syntax. If it doesn't have that - # syntax, will set the module to the entire interior. - $interior =~ m/ ^ - (?: [^|]+ \| )? # Optional arbitrary text ending in - # "|" - ( .+? ) # module, etc. name - (?: \/ .+ )? # target within module - $ - /xs; - my $module = $1; - if (! defined $trailing # not referring to something in another - # section - && $interior !~ /$non_pods/ - - # C<> that look like files have their own message below, so - # exclude them - && $construct !~ /$C_path_re/g - - # There can't be spaces (I think) in module names or man - # pages - && $module !~ / \s /x - - # F<> that end in eg \.pl are almost certainly ok, as are - # those that look like a path with multiple "/" chars - && ($type ne "F" - || (! -e $interior - && $interior !~ /\.\w+$/ - && $interior !~ /\/.+\//) - ) - ) { - $self->poderror({ -line => $line, -file => $file, - -msg => $see_not_linked, - parameter => $construct - }); - } + # Now, find what the module or man page name within the + # construct would be if it actually has L<> syntax. If it + # doesn't have that syntax, will set the module to the entire + # interior. + $interior =~ m/ ^ + (?: [^|]+ \| )? # Optional arbitrary text ending + # in "|" + ( .+? ) # module, etc. name + (?: \/ .+ )? # target within module + $ + /xs; + my $module = $1; + if (! defined $trailing # not referring to something in another + # section + && $interior !~ /$non_pods/ + + # C<> that look like files have their own message below, so + # exclude them + && $construct !~ /$C_path_re/g + + # There can't be spaces (I think) in module names or man + # pages + && $module !~ / \s /x + + # F<> that end in eg \.pl are almost certainly ok, as are + # those that look like a path with multiple "/" chars + && ($type ne "F" + || (! -e $interior + && $interior !~ /\.\w+$/ + && $interior !~ /\/.+\//) + ) + ) { + $self->poderror({ -line => $line, -file => $file, + -msg => $see_not_linked, + parameter => $construct + }); + } } } while ($paragraph =~ m/$C_path_re/g) { |