The output of --showfiles has been garbled since commit
d5e2eea989a69524
refactored pod/buildtoc to no longer chdir to the pod/ directory.
}
}
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);
}
}