diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-09-25 10:22:57 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-09-25 14:18:09 -0600 |
| commit | 6981f6e429ccc038acf0b5d9dfd8273c1b5debea (patch) | |
| tree | 2a87f03d9f723d8c3db16c4c5897df8500e2f482 /t/porting | |
| parent | 21b63541c29d048753ef6f8c1ac2691ed552a715 (diff) | |
| download | perl-6981f6e429ccc038acf0b5d9dfd8273c1b5debea.tar.gz | |
podcheck.t: Move hash declaration to earlier in file
The only change is to move a block of code around. This is to prepare
for future commits
Diffstat (limited to 't/porting')
| -rw-r--r-- | t/porting/podcheck.t | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index ef9f34b675..e273b57959 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -332,6 +332,22 @@ my $lib_ext = $Config{'lib_ext'}; $lib_ext =~ tr/.//d; my $lib_so = $Config{'so'}; $lib_so =~ tr/.//d; my $dl_ext = $Config{'dlext'}; $dl_ext =~ tr/.//d; +# Not really pods, but can look like them. +my %excluded_files = ( + "lib/unicore/mktables" => 1, + "Porting/perldelta_template.pod" => 1, + "autodoc.pl" => 1, + "configpm" => 1, + "miniperl" => 1, + "perl" => 1, + ); + +# Convert to more generic form. +foreach my $file (keys %excluded_files) { + delete $excluded_files{$file}; + $excluded_files{canonicalize($file)} = 1; +} + # This list should not include anything for which case sensitivity is # important, as it won't work on VMS, and won't show up until tested on VMS. # Instead is_pod_file() can be used to exclude these at a finer grained @@ -1094,23 +1110,6 @@ if ($show_counts) { exit 0; } - -# Not really pods, but can look like them. -my %excluded_files = ( - "lib/unicore/mktables" => 1, - "Porting/perldelta_template.pod" => 1, - "autodoc.pl" => 1, - "configpm" => 1, - "miniperl" => 1, - "perl" => 1, - ); - -# Convert to more generic form. -foreach my $file (keys %excluded_files) { - delete $excluded_files{$file}; - $excluded_files{canonicalize($file)} = 1; -} - # re to match files that are to be parsed only if there is an internal link # to them. It does not include cpan, as whether those are parsed depends # on a switch. Currently, only perltoc and the stable perldelta.pod's |