diff options
| -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) { |