This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix bug with MANIFEST generation when we also regenerate perltoc.pod
authorNicholas Clark <nick@ccl4.org>
Mon, 5 Jan 2004 21:16:09 +0000 (21:16 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 5 Jan 2004 21:16:09 +0000 (21:16 +0000)
p4raw-id: //depot/perl@22064

pod/buildtoc

index 4d61eab..71f2a91 100644 (file)
@@ -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;