Change 14169: No need to show internal encodings, or return them

[Jarkko Hietaniemi]

Change 14169 by jhi@alpha on 2002/01/10 17:47:34

        No need to show internal encodings, or return them
        in random order.

Affected files ...

.... //depot/perl/ext/Encode/Encode.pm#52 edit

Differences ...

==== //depot/perl/ext/Encode/Encode.pm#52 (text) ====
Index: perl/ext/Encode/Encode.pm
--- perl/ext/Encode/Encode.pm.~1~       Thu Jan 10 11:00:05 2002
+++ perl/ext/Encode/Encode.pm   Thu Jan 10 11:00:05 2002
@@ -61,7 +61,12 @@
 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
End of Patch.