No need to show internal encodings, or return them

in random order.

p4raw-id: //depot/perl@14169

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index 76257d4..cd94038 100644 (file)
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -61,7 +61,12 @@ our %winlatin2cp   = (
 sub encodings
 {
  my ($class) = @_;
- return keys %encoding;
+ return
+     map { $_->[0] }
+         sort { $a->[1] cmp $b->[1] }
+               map { [$_, lc $_] }
+                   grep { $_ ne 'Internal' }
+                        keys %encoding;
 }
 
 sub findAlias