buildtoc --showfiles should report the correct pathnames.
authorNicholas Clark <nick@ccl4.org>
Tue, 8 Nov 2011 13:39:41 +0000 (14:39 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 18 Nov 2011 10:08:56 +0000 (11:08 +0100)
The output of --showfiles has been garbled since commit d5e2eea989a69524
refactored pod/buildtoc to no longer chdir to the pod/ directory.

pod/buildtoc

index fc49da9..63ea252 100644 (file)
@@ -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);
   }
 }