From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 Jan 2002 17:47:34 +0000 (+0000)
Subject: No need to show internal encodings, or return them
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40a073c6ab81a3dc2050daf4e83d5bff8cbe147b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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