diff options
author | Abigail <abigail@abigail.be> | 2015-11-19 13:32:00 +0100 |
---|---|---|
committer | Abigail <abigail@abigail.be> | 2015-11-19 13:34:53 +0100 |
commit | c80f3fcd8576d572b3d0b329cc4597dfafb7a7d6 (patch) | |
tree | c3b2b87ce1ef98ca7151f526e5c487962ca0fef6 | |
parent | 5ff1f7df94d5070d31c757e672a2730f2ae2aaff (diff) | |
download | perl-c80f3fcd8576d572b3d0b329cc4597dfafb7a7d6.tar.gz |
podcheck.t: Deindent by 1 space to left margin.
-rw-r--r-- | t/porting/podcheck.t | 86 |
1 files changed, 43 insertions, 43 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index a4e84c2eb2..3cd01c3f7f 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -1480,49 +1480,49 @@ else { # No input files -- go find all the possibilities. plan (tests => scalar @files) if ! $regen; - # Sort file names so we get consistent results, and to put cpan last, - # preceded by the ones that we don't generally parse. This is because both - # these classes are generally parsed only if there is a link to the interior - # of them, and we have to parse all others first to guarantee that they don't - # have such a link. 'lib' files come just before these, as some of these are - # duplicates of others. We already have figured this out when gathering the - # data as a special case for all such files, but this, while unnecessary, - # puts the derived file last in the output. 'readme' files come before those, - # as those also could be duplicates of others, which are considered the - # primary ones. These currently aren't figured out when gathering data, so - # are done here. - @files = sort { if ($a =~ /^cpan/) { - return 1 if $b !~ /^cpan/; - return lc $a cmp lc $b; - } - elsif ($b =~ /^cpan/) { - return -1; - } - elsif ($a =~ /$only_for_interior_links_re/) { - return 1 if $b !~ /$only_for_interior_links_re/; - return lc $a cmp lc $b; - } - elsif ($b =~ /$only_for_interior_links_re/) { - return -1; - } - elsif ($a =~ /^lib/) { - return 1 if $b !~ /^lib/; - return lc $a cmp lc $b; - } - elsif ($b =~ /^lib/) { - return -1; - } elsif ($a =~ /\breadme\b/i) { - return 1 if $b !~ /\breadme\b/i; - return lc $a cmp lc $b; - } - elsif ($b =~ /\breadme\b/i) { - return -1; - } - else { - return lc $a cmp lc $b; - } - } - @files; +# Sort file names so we get consistent results, and to put cpan last, +# preceded by the ones that we don't generally parse. This is because both +# these classes are generally parsed only if there is a link to the interior +# of them, and we have to parse all others first to guarantee that they don't +# have such a link. 'lib' files come just before these, as some of these are +# duplicates of others. We already have figured this out when gathering the +# data as a special case for all such files, but this, while unnecessary, +# puts the derived file last in the output. 'readme' files come before those, +# as those also could be duplicates of others, which are considered the +# primary ones. These currently aren't figured out when gathering data, so +# are done here. +@files = sort { if ($a =~ /^cpan/) { + return 1 if $b !~ /^cpan/; + return lc $a cmp lc $b; + } + elsif ($b =~ /^cpan/) { + return -1; + } + elsif ($a =~ /$only_for_interior_links_re/) { + return 1 if $b !~ /$only_for_interior_links_re/; + return lc $a cmp lc $b; + } + elsif ($b =~ /$only_for_interior_links_re/) { + return -1; + } + elsif ($a =~ /^lib/) { + return 1 if $b !~ /^lib/; + return lc $a cmp lc $b; + } + elsif ($b =~ /^lib/) { + return -1; + } elsif ($a =~ /\breadme\b/i) { + return 1 if $b !~ /\breadme\b/i; + return lc $a cmp lc $b; + } + elsif ($b =~ /\breadme\b/i) { + return -1; + } + else { + return lc $a cmp lc $b; + } + } + @files; # Now go through all the files and parse them FILE: |