podcheck.t: Convert to Un*x style for file name eq

The db keeps the file names stored in Un*x style.  Convert the
filenames returned by the OS into that style to get an apples
to apples comparison

1 files changed, 11 insertions, 3 deletions

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 9005fde624..b10c6280e0 100644
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -288,10 +288,18 @@ 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, and all file
-# name comparisons are done that way.
+# 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($) {
-    return lc File::Spec->canonpath(shift);
+    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;
+    my $output = lc join '/', File::Spec->splitdir($directories), $file;
+    $output =~ s! / /+ !/!gx;       # Multiple slashes => single slash
+    return $output;
 }