This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
grep then sort, as it's more efficient to sort a shorter list.
authorNicholas Clark <nick@ccl4.org>
Sat, 18 Apr 2009 11:26:16 +0000 (12:26 +0100)
committerNicholas Clark <nick@ccl4.org>
Sat, 18 Apr 2009 11:27:08 +0000 (12:27 +0100)
pod/buildtoc

index a8ea3bc..e12bb29 100644 (file)
@@ -527,7 +527,7 @@ sub generate_manifest {
 }
 sub generate_manifest_pod {
   generate_manifest map {["pod/$_.pod", $Pods{$_}]}
-    grep {!$Copies{"$_.pod"}} grep {!$Generated{"$_.pod"}} sort keys %Pods;
+    sort grep {!$Copies{"$_.pod"}} grep {!$Generated{"$_.pod"}} keys %Pods;
 }
 sub generate_manifest_readme {
   generate_manifest map {["README.$_", $Readmes{$_}]} sort keys %Readmes;