diff options
| author | Robin Barker <rmbarker@cpan.org> | 2011-01-27 15:54:40 +0000 |
|---|---|---|
| committer | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2011-01-27 20:16:28 +0000 |
| commit | b5f0cad08b95128bb494e93d5bff2c5797006cd8 (patch) | |
| tree | 464430c08140edee8018a604b3d75fe239992856 /pod/buildtoc | |
| parent | 5cf9651332ed0ede8b731e49a0f5b3bf300b7b0e (diff) | |
| download | perl-b5f0cad08b95128bb494e93d5bff2c5797006cd8.tar.gz | |
relative file in %BuildFiles
[Ævar: removed trailing whitespace from the original patch]
Signed-off-by: Ævar Arnfjörð Bjarmason <avar@cpan.org>
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" |