This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Move subroutine defn earlier in file
authorKarl Williamson <public@khwilliamson.com>
Sun, 25 Sep 2011 17:00:26 +0000 (11:00 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 25 Sep 2011 20:18:09 +0000 (14:18 -0600)
This is to prepare for future commits, to avoid a warning message
about prototype checking

t/porting/podcheck.t

index ca69350..ef9f34b 100644 (file)
@@ -247,6 +247,22 @@ L<Pod::Checker>
 
 =cut
 
+# This is to get this to work across multiple file systems, including those
+# that are not case sensitive.  The db is stored in lower case, Un*x style,
+# and all file name comparisons are done that way.
+sub canonicalize($) {
+    my $input = shift;
+    my ($volume, $directories, $file)
+                    = File::Spec->splitpath(File::Spec->canonpath($input));
+    # Assumes $volume is constant for everything in this directory structure
+    $directories = "" if ! $directories;
+    $file = "" if ! $file;
+    $file =~ s/\.$// if $^O eq 'VMS';
+    my $output = lc join '/', File::Spec->splitdir($directories), $file;
+    $output =~ s! / /+ !/!gx;       # Multiple slashes => single slash
+    return $output;
+}
+
 #####################################################
 # HOW IT WORKS (in general)
 #
@@ -423,23 +439,6 @@ sub suppressed {
     }
 }
 
-# This is to get this to work across multiple file systems, including those
-# that are not case sensitive.  The db is stored in lower case, Un*x style,
-# and all file name comparisons are done that way.
-sub canonicalize($) {
-    my $input = shift;
-    my ($volume, $directories, $file)
-                    = File::Spec->splitpath(File::Spec->canonpath($input));
-    # Assumes $volume is constant for everything in this directory structure
-    $directories = "" if ! $directories;
-    $file = "" if ! $file;
-    $file =~ s/\.$// if $^O eq 'VMS';
-    my $output = lc join '/', File::Spec->splitdir($directories), $file;
-    $output =~ s! / /+ !/!gx;       # Multiple slashes => single slash
-    return $output;
-}
-
-
 # List of known potential problems by pod and type.
 my %known_problems;