From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 18 Apr 2009 11:26:16 +0000 (+0100)
Subject: grep then sort, as it's more efficient to sort a shorter list.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3dc608da20ed2bfc3a3adc9459ee35d5fa2839b3;p=p5sagit%2Fp5-mst-13.2.git

grep then sort, as it's more efficient to sort a shorter list.
---

diff --git a/pod/buildtoc b/pod/buildtoc
index a8ea3bc..e12bb29 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -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;