From cb9cdbd1d6b9f938813cdde325c9f040c9b3e456 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 8 Nov 2011 14:39:41 +0100
Subject: 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.
---
 pod/buildtoc | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

(limited to 'pod/buildtoc')

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);
   }
 }
-- 
cgit v1.2.1