diff options
Diffstat (limited to 'pod/buildtoc')
| -rw-r--r-- | pod/buildtoc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index 589681140f..3b61619fd2 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -235,7 +235,10 @@ close $master; if !$perlpods{$i} && !exists $Copies{$i}; } my %BuildFiles; - ++$BuildFiles{$_} foreach values %Build; + foreach my $path (values %Build) { + (undef, undef, my $file) = File::Spec->splitpath($path); + ++$BuildFiles{$file} + } foreach my $i (sort keys %our_pods) { push @inconsistent, "$0: $i is known by buildtoc but does not exist\n" |