Build perltoc.pod with pragmata sorted by name.
authorNicholas Clark <nick@ccl4.org>
Tue, 18 Jan 2011 11:10:41 +0000 (11:10 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 18 Jan 2011 11:10:41 +0000 (11:10 +0000)
Previously they were actually sorted by full pathname, which isn't logical.
I presume that this is an artefact of all pragmata being in lib/ when
pod/buildtoc was originally written.

pod/buildtoc

index 50fc892..aa80d15 100644 (file)
@@ -351,7 +351,7 @@ EOPOD2B
 
 EOPOD2B
 
-  podset(sort values %Pragmata);
+  podset( @Pragmata{ sort keys %Pragmata } );
 
   ($_= <<"EOPOD2B") =~ s/^\t//gm && output($_);