Fix a pod/buildtoc warning
authorFlorian Ragwitz <rafl@debian.org>
Mon, 6 Sep 2010 23:23:11 +0000 (01:23 +0200)
committerFlorian Ragwitz <rafl@debian.org>
Mon, 6 Sep 2010 23:25:40 +0000 (01:25 +0200)
This was introduced with the perlXXXdelta.pod -> perldelta.pod move. buildtoc
assumed the copy target (perldelta.pod) should appear in perl.pod. Now
perldelta.pod is the copy source, but should still appear in perl.pod, while
perlXXXdelta.pod should not.

pod/buildtoc

index 018db12..0d4fb5d 100644 (file)
@@ -160,7 +160,6 @@ close MASTER;
   my (@manireadmes, %manireadmes);
   my (@perlpods, %perlpods);
   my (%our_pods);
-  my (%sources);
 
   # Convert these to a list of filenames.
   foreach (keys %Pods, keys %Readmepods) {
@@ -173,7 +172,6 @@ close MASTER;
 
   # Things we copy from won't be in perl.pod
   # Things we copy to won't be in MANIFEST
-  @sources{values %Copies} = ();
 
   open(MANI, "../MANIFEST") || die "$0: opening ../MANIFEST failed: $!";
   while (<MANI>) {
@@ -207,12 +205,12 @@ close MASTER;
     warn "$0: $i exists but is unknown by ../MANIFEST\n"
       if !$manipods{$i} && !$manireadmes{$i} && !$Copies{$i} && !$Generated{$i};
     warn "$0: $i exists but is unknown by perl.pod\n"
-       if !$perlpods{$i} && !exists $sources{$i};
+       if !$perlpods{$i} && !exists $Copies{$i};
   }
   my @BuildTargets = grep {defined} @Targets{grep $_ ne 'all', keys %Build};
   my %BuildFiles;
   @BuildFiles{@BuildTargets} = @BuildTargets;
-  
+
   foreach my $i (sort keys %our_pods) {
     warn "$0: $i is known by buildtoc but does not exist\n"
       unless $disk_pods{$i} or $BuildFiles{$i};