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

p4raw-id: //depot/perl@22064

1 files changed, 3 insertions, 1 deletions

diff --git a/pod/buildtoc b/pod/buildtoc
index 4d61eab644..71f2a91244 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;