diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-11-08 11:57:53 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-11-18 11:08:56 +0100 |
commit | 7412110ec868500d7a6dfe0682686e17aa707803 (patch) | |
tree | 8a9699cdfc9b2b2edd2eb5ade503b6dc381d93df | |
parent | ad77fdb48128c451b7a8e6803270d2b740d29169 (diff) | |
download | perl-7412110ec868500d7a6dfe0682686e17aa707803.tar.gz |
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.
-rw-r--r-- | pod/buildtoc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index 687fd90692..142708f895 100644 --- 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) { |