This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't autovivify a spurious key "all" in the %Targets hash
authorRafael Garcia-Suarez <rgs@consttype.org>
Sun, 4 Oct 2009 16:09:14 +0000 (18:09 +0200)
committerRafael Garcia-Suarez <rgs@consttype.org>
Sun, 4 Oct 2009 16:09:14 +0000 (18:09 +0200)
pod/buildtoc

index b3b29c5..83eb447 100755 (executable)
@@ -209,7 +209,7 @@ close MASTER;
     warn "$0: $i exists but is unknown by perl.pod\n"
        if !$perlpods{$i} && !exists $sources{$i};
   }
     warn "$0: $i exists but is unknown by perl.pod\n"
        if !$perlpods{$i} && !exists $sources{$i};
   }
-  my @BuildTargets = grep {defined} @Targets{keys %Build};
+  my @BuildTargets = grep {defined} @Targets{grep $_ ne 'all', keys %Build};
   my %BuildFiles;
   @BuildFiles{@BuildTargets} = @BuildTargets;
   
   my %BuildFiles;
   @BuildFiles{@BuildTargets} = @BuildTargets;