%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.
}
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) {