buildtoc --showfiles should report the correct pathnames.

The output of --showfiles has been garbled since commit d5e2eea989a69524
refactored pod/buildtoc to no longer chdir to the pod/ directory.

diff --git a/pod/buildtoc b/pod/buildtoc
index fc49da9..63ea252 100644 (file)
--- 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);
   }
 }