From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Jan 2004 21:16:09 +0000 (+0000)
Subject: Fix bug with MANIFEST generation when we also regenerate perltoc.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=671313d0b4c6e76be9972a12e28ff086c57ec7b7;p=p5sagit%2Fp5-mst-13.2.git

Fix bug with MANIFEST generation when we also regenerate perltoc.pod

p4raw-id: //depot/perl@22064
---

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;