diff options
| -rw-r--r-- | pod/buildtoc | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index fc49da94e0..63ea252867 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -85,19 +85,7 @@ __USAGE__ } } if ($showfiles) { - print - join(" ", - sort { lc $a cmp lc $b } - map { - my ($v, $d, $f) = File::Spec->splitpath($_); - my @d; - @d = defined $d ? File::Spec->splitdir($d) : (); - shift @d if @d; - File::Spec->catfile(@d ? - (@d == 1 && $d[0] eq '' ? () : @d) - : "pod", $f); - } values %Build), - "\n"; + print join(" ", sort { lc $a cmp lc $b } values %Build), "\n"; exit(0); } } |