From 671313d0b4c6e76be9972a12e28ff086c57ec7b7 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Jan 2004 21:16:09 +0000
Subject: [PATCH] Fix bug with MANIFEST generation when we also regenerate
 perltoc.pod

p4raw-id: //depot/perl@22064
---
 pod/buildtoc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pod/buildtoc b/pod/buildtoc
index 4d61eab..71f2a91 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -259,7 +259,7 @@ sub output ($);
 sub output_perltoc {
   open(OUT, ">perltoc.pod") || die "$0: creating perltoc.pod failed: $!";
 
-  $/ = '';
+  local $/ = '';
 
   ($_= <<"EOPOD2B") =~ s/^\t//gm && output($_);
 
@@ -642,7 +642,9 @@ while (my ($target, $name) = each %Targets) {
   next unless $Build{$target};
   $built++;
   if ($target eq "toc") {
+    print "Now processing $name\n" if $Verbose;
     &output_perltoc;
+    print "Finished\n" if $Verbose;
     next;
   }
   print "Now processing $name\n" if $Verbose;
-- 
1.8.3.1