Build perltoc.pod with pragmata sorted by name.

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.

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