X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1d45ec279e4e105512a2803e3d0bd974a151a0f6..8254cbf193c939338449097a80163197fc755150:/pod/buildtoc

diff --git a/pod/buildtoc b/pod/buildtoc
index 50fc892..aa80d15 100644
--- 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($_);