From 40a073c6ab81a3dc2050daf4e83d5bff8cbe147b Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 Jan 2002 17:47:34 +0000
Subject: [PATCH] No need to show internal encodings, or return them in random
 order.

p4raw-id: //depot/perl@14169
---
 ext/Encode/Encode.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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