This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Build perltoc.pod with pragmata sorted by name.
[perl5.git] / 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($_);