In buildtoc, don't use File::Spec when initialising %BuildFiles.

%BuildFiles is initialised from the leafnames of %Build, which is
initialised from %Targets, which always contains pathnames in Unix
format. Hence using File::Spec->splitpath() is actually erroneous, as it
will process pathnames assuming the format for the current platform.

diff --git a/pod/buildtoc b/pod/buildtoc
index 687fd90..142708f 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -261,8 +261,8 @@ close $master;
   }
   my %BuildFiles;
   foreach my $path (values %Build) {
-    (undef, undef, my $file) = File::Spec->splitpath($path);
-    ++$BuildFiles{$file}
+    $path =~ m!([^/]+)$!;
+    ++$BuildFiles{$1};
   }
 
   foreach my $i (sort keys %our_pods) {