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

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index ef9f34b..e273b57 100644 (file)
--- 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