@@ -1,3 +1,21 @@
+2013-10-05  Kingpin  <martin@localhost.localdomain>
+
+	* lib/I18N/Charset.pm (_init_data): new IANA charset list
+
+	* MANIFEST.SKIP: don't ship MYMETA files
+
+2011-10-31  Kingpin  <Martin@BLUEMAX>
+
+	* lib/I18N/Charset.pm (_init_data): new IANA charset list
+
+2010-11-06  Kingpin  <Martin@BLUEMAX>
+
+	* lib/I18N/Charset.pm (_init_data): new IANA charset list (one new charset defined)
+
+2010-09-17  Kingpin  <Martin@BLUEMAX>
+
+	* lib/I18N/Charset.pm (_init_data): new IANA charset list (one new charset defined)
+
 2008-07-05  Kingpin  <Martin@BLUEMAX>
 
 	* lib/I18N/Charset.pm: overhauled the U::Map8 initialization

@@ -1,26 +1,26 @@
-Changes
-inc/Module/Install.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/Fetch.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/Metadata.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/WriteAll.pm
-lib/I18N/Charset.pm
-Makefile.PL
-MANIFEST			This list of files
-META.yml
-README
-t/bug1.t
-t/enco.t
-t/iana.t
-t/libi.t
-t/map8.t
-t/mib.t
-t/mime.t
-t/pod-coverage.t
-t/pod.t
-t/rt33087.t
-t/umap.t
-t/utf8.t
+Changes
+inc/Module/Install.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+lib/I18N/Charset.pm
+Makefile.PL
+MANIFEST			This list of files
+META.yml
+README
+t/bug1.t
+t/enco.t
+t/iana.t
+t/libi.t
+t/map8.t
+t/mib.t
+t/mime.t
+t/pod-coverage.t
+t/pod.t
+t/rt33087.t
+t/umap.t
+t/utf8.t

@@ -1,31 +1,37 @@
----
-abstract: 'IANA Character Set Registry names and Unicode::MapUTF8'
-author:
-  - 'Martin Thurn, C<mthurn@cpan.org>, L<http://tinyurl.com/nn67z>.'
-build_requires:
-  IO::Capture::Stderr: 0
-  Test::More: 0
-  Test::Pod: 0
-  Test::Pod::Coverage: 0
-distribution_type: module
-generated_by: 'Module::Install version 0.75'
-license: perl
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.3.html
-  version: 1.3
-name: I18N-Charset
-no_index:
-  directory:
-    - inc
-    - t
-recommends:
-  App::Info::Lib::Iconv: 0
-  Encode: 0
-  Jcode: 0
-  Unicode::Map: 0
-  Unicode::Map8: 0
-  Unicode::MapUTF8: 0
-requires:
-  IO::String: 0
-  perl: 5.004
-version: 1.394
+---
+abstract: 'IANA Character Set Registry names and Unicode::MapUTF8'
+author:
+  - "Martin 'Kingpin' Thurn, C<mthurn at cpan.org>, L<http://tinyurl.com/nn67z>."
+build_requires:
+  ExtUtils::MakeMaker: 6.36
+  IO::Capture::Stderr: 0
+  Test::More: 0
+configure_requires:
+  ExtUtils::MakeMaker: 6.36
+distribution_type: module
+dynamic_config: 1
+generated_by: 'Module::Install version 1.06'
+license: perl
+meta-spec:
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+module_name: I18N::Charset
+name: I18N-Charset
+no_index:
+  directory:
+    - inc
+    - t
+recommends:
+  App::Info::Lib::Iconv: 0
+  Encode: 0
+  Jcode: 0
+  Test::Pod: 0
+  Test::Pod::Coverage: 0
+  Unicode::Map: 0
+  Unicode::Map8: 0
+  Unicode::MapUTF8: 0
+requires:
+  perl: 5.004
+resources:
+  license: http://dev.perl.org/licenses/
+version: 1.412

@@ -1,24 +1,23 @@
 
-# $Id: Makefile.PL,v 1.17 2008/06/29 02:12:37 Martin Exp $
+# $Id: Makefile.PL,v 1.20 2013/01/14 03:59:13 Martin Exp $
 
 use inc::Module::Install;
 
-name('I18N-Charset');
-all_from('lib/I18N/Charset.pm');
+my $sFnamePM = q{lib/I18N/Charset.pm};
+all_from($sFnamePM);
 
 requires( perl => '5.004' );
 recommends('App::Info::Lib::Iconv');
 recommends('Encode');
 test_requires('IO::Capture::Stderr' => 0);
-requires('IO::String');
 recommends('Jcode');
 recommends('Unicode::Map');
 recommends('Unicode::Map8');
 recommends('Unicode::MapUTF8');
 # Test::More is needed for `make test`:
 test_requires('Test::More');
-test_recommends('Test::Pod');
-test_recommends('Test::Pod::Coverage');
+recommends('Test::Pod');
+recommends('Test::Pod::Coverage');
 
 WriteAll();
 
@@ -30,6 +29,20 @@ coverage :
 coverage_slave : test
 	cover
 PART0
+  my $sFnameIANA = q{IANA-docs/character-sets};
+  if (-f $sFnameIANA)
+    {
+    # This must be the author's environment
+    $ret .= <<"PART1";
+
+CHARSETPM = $sFnamePM
+IANA = $sFnameIANA
+
+prep : \$(CHARSETPM)
+\$(CHARSETPM) : \$(IANA)
+	\$(FULLPERL) prep.pl \$(IANA) \$@
+PART1
+    } # if
   return $ret;
   } # MY::postamble
 

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/README b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/README
old mode 100755
new mode 100644

@@ -1,70 +1,83 @@
-#line 1
-package Module::Install::Base;
-
-$VERSION = '0.75';
-
-# Suspend handler for "redefined" warnings
-BEGIN {
-	my $w = $SIG{__WARN__};
-	$SIG{__WARN__} = sub { $w };
-}
-
-### This is the ONLY module that shouldn't have strict on
-# use strict;
-
-#line 41
-
-sub new {
-    my ($class, %args) = @_;
-
-    foreach my $method ( qw(call load) ) {
-        *{"$class\::$method"} = sub {
-            shift()->_top->$method(@_);
-        } unless defined &{"$class\::$method"};
-    }
-
-    bless( \%args, $class );
-}
-
-#line 61
-
-sub AUTOLOAD {
-    my $self = shift;
-    local $@;
-    my $autoload = eval { $self->_top->autoload } or return;
-    goto &$autoload;
-}
-
-#line 76
-
-sub _top { $_[0]->{_top} }
-
-#line 89
-
-sub admin {
-    $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new;
-}
-
-sub is_admin {
-    $_[0]->admin->VERSION;
-}
-
-sub DESTROY {}
-
-package Module::Install::Base::FakeAdmin;
-
-my $Fake;
-sub new { $Fake ||= bless(\@_, $_[0]) }
-
-sub AUTOLOAD {}
-
-sub DESTROY {}
-
-# Restore warning handler
-BEGIN {
-	$SIG{__WARN__} = $SIG{__WARN__}->();
-}
-
-1;
-
-#line 138
+#line 1
+package Module::Install::Base;
+
+use strict 'vars';
+use vars qw{$VERSION};
+BEGIN {
+	$VERSION = '1.06';
+}
+
+# Suspend handler for "redefined" warnings
+BEGIN {
+	my $w = $SIG{__WARN__};
+	$SIG{__WARN__} = sub { $w };
+}
+
+#line 42
+
+sub new {
+	my $class = shift;
+	unless ( defined &{"${class}::call"} ) {
+		*{"${class}::call"} = sub { shift->_top->call(@_) };
+	}
+	unless ( defined &{"${class}::load"} ) {
+		*{"${class}::load"} = sub { shift->_top->load(@_) };
+	}
+	bless { @_ }, $class;
+}
+
+#line 61
+
+sub AUTOLOAD {
+	local $@;
+	my $func = eval { shift->_top->autoload } or return;
+	goto &$func;
+}
+
+#line 75
+
+sub _top {
+	$_[0]->{_top};
+}
+
+#line 90
+
+sub admin {
+	$_[0]->_top->{admin}
+	or
+	Module::Install::Base::FakeAdmin->new;
+}
+
+#line 106
+
+sub is_admin {
+	! $_[0]->admin->isa('Module::Install::Base::FakeAdmin');
+}
+
+sub DESTROY {}
+
+package Module::Install::Base::FakeAdmin;
+
+use vars qw{$VERSION};
+BEGIN {
+	$VERSION = $Module::Install::Base::VERSION;
+}
+
+my $fake;
+
+sub new {
+	$fake ||= bless(\@_, $_[0]);
+}
+
+sub AUTOLOAD {}
+
+sub DESTROY {}
+
+# Restore warning handler
+BEGIN {
+	$SIG{__WARN__} = $SIG{__WARN__}->();
+}
+
+1;
+
+#line 159

@@ -1,82 +1,154 @@
-#line 1
-package Module::Install::Can;
-
-use strict;
-use Module::Install::Base;
-use Config ();
-### This adds a 5.005 Perl version dependency.
-### This is a bug and will be fixed.
-use File::Spec ();
-use ExtUtils::MakeMaker ();
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
-	$VERSION = '0.75';
-	$ISCORE  = 1;
-	@ISA     = qw{Module::Install::Base};
-}
-
-# check if we can load some module
-### Upgrade this to not have to load the module if possible
-sub can_use {
-	my ($self, $mod, $ver) = @_;
-	$mod =~ s{::|\\}{/}g;
-	$mod .= '.pm' unless $mod =~ /\.pm$/i;
-
-	my $pkg = $mod;
-	$pkg =~ s{/}{::}g;
-	$pkg =~ s{\.pm$}{}i;
-
-	local $@;
-	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
-}
-
-# check if we can run some command
-sub can_run {
-	my ($self, $cmd) = @_;
-
-	my $_cmd = $cmd;
-	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
-
-	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
-		my $abs = File::Spec->catfile($dir, $_[1]);
-		return $abs if (-x $abs or $abs = MM->maybe_command($abs));
-	}
-
-	return;
-}
-
-# can we locate a (the) C compiler
-sub can_cc {
-	my $self   = shift;
-	my @chunks = split(/ /, $Config::Config{cc}) or return;
-
-	# $Config{cc} may contain args; try to find out the program part
-	while (@chunks) {
-		return $self->can_run("@chunks") || (pop(@chunks), next);
-	}
-
-	return;
-}
-
-# Fix Cygwin bug on maybe_command();
-if ( $^O eq 'cygwin' ) {
-	require ExtUtils::MM_Cygwin;
-	require ExtUtils::MM_Win32;
-	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
-		*ExtUtils::MM_Cygwin::maybe_command = sub {
-			my ($self, $file) = @_;
-			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
-				ExtUtils::MM_Win32->maybe_command($file);
-			} else {
-				ExtUtils::MM_Unix->maybe_command($file);
-			}
-		}
-	}
-}
-
-1;
-
-__END__
-
-#line 157
+#line 1
+package Module::Install::Can;
+
+use strict;
+use Config                ();
+use ExtUtils::MakeMaker   ();
+use Module::Install::Base ();
+
+use vars qw{$VERSION @ISA $ISCORE};
+BEGIN {
+	$VERSION = '1.06';
+	@ISA     = 'Module::Install::Base';
+	$ISCORE  = 1;
+}
+
+# check if we can load some module
+### Upgrade this to not have to load the module if possible
+sub can_use {
+	my ($self, $mod, $ver) = @_;
+	$mod =~ s{::|\\}{/}g;
+	$mod .= '.pm' unless $mod =~ /\.pm$/i;
+
+	my $pkg = $mod;
+	$pkg =~ s{/}{::}g;
+	$pkg =~ s{\.pm$}{}i;
+
+	local $@;
+	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
+}
+
+# Check if we can run some command
+sub can_run {
+	my ($self, $cmd) = @_;
+
+	my $_cmd = $cmd;
+	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
+
+	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
+		next if $dir eq '';
+		require File::Spec;
+		my $abs = File::Spec->catfile($dir, $cmd);
+		return $abs if (-x $abs or $abs = MM->maybe_command($abs));
+	}
+
+	return;
+}
+
+# Can our C compiler environment build XS files
+sub can_xs {
+	my $self = shift;
+
+	# Ensure we have the CBuilder module
+	$self->configure_requires( 'ExtUtils::CBuilder' => 0.27 );
+
+	# Do we have the configure_requires checker?
+	local $@;
+	eval "require ExtUtils::CBuilder;";
+	if ( $@ ) {
+		# They don't obey configure_requires, so it is
+		# someone old and delicate. Try to avoid hurting
+		# them by falling back to an older simpler test.
+		return $self->can_cc();
+	}
+
+	# Do we have a working C compiler
+	my $builder = ExtUtils::CBuilder->new(
+		quiet => 1,
+	);
+	unless ( $builder->have_compiler ) {
+		# No working C compiler
+		return 0;
+	}
+
+	# Write a C file representative of what XS becomes
+	require File::Temp;
+	my ( $FH, $tmpfile ) = File::Temp::tempfile(
+		"compilexs-XXXXX",
+		SUFFIX => '.c',
+	);
+	binmode $FH;
+	print $FH <<'END_C';
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+int main(int argc, char **argv) {
+    return 0;
+}
+
+int boot_sanexs() {
+    return 1;
+}
+
+END_C
+	close $FH;
+
+	# Can the C compiler access the same headers XS does
+	my @libs   = ();
+	my $object = undef;
+	eval {
+		local $^W = 0;
+		$object = $builder->compile(
+			source => $tmpfile,
+		);
+		@libs = $builder->link(
+			objects     => $object,
+			module_name => 'sanexs',
+		);
+	};
+	my $result = $@ ? 0 : 1;
+
+	# Clean up all the build files
+	foreach ( $tmpfile, $object, @libs ) {
+		next unless defined $_;
+		1 while unlink;
+	}
+
+	return $result;
+}
+
+# Can we locate a (the) C compiler
+sub can_cc {
+	my $self   = shift;
+	my @chunks = split(/ /, $Config::Config{cc}) or return;
+
+	# $Config{cc} may contain args; try to find out the program part
+	while (@chunks) {
+		return $self->can_run("@chunks") || (pop(@chunks), next);
+	}
+
+	return;
+}
+
+# Fix Cygwin bug on maybe_command();
+if ( $^O eq 'cygwin' ) {
+	require ExtUtils::MM_Cygwin;
+	require ExtUtils::MM_Win32;
+	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
+		*ExtUtils::MM_Cygwin::maybe_command = sub {
+			my ($self, $file) = @_;
+			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
+				ExtUtils::MM_Win32->maybe_command($file);
+			} else {
+				ExtUtils::MM_Unix->maybe_command($file);
+			}
+		}
+	}
+}
+
+1;
+
+__END__
+
+#line 236

@@ -1,93 +1,93 @@
-#line 1
-package Module::Install::Fetch;
-
-use strict;
-use Module::Install::Base;
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
-	$VERSION = '0.75';
-	$ISCORE  = 1;
-	@ISA     = qw{Module::Install::Base};
-}
-
-sub get_file {
-    my ($self, %args) = @_;
-    my ($scheme, $host, $path, $file) = 
-        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
-
-    if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
-        $args{url} = $args{ftp_url}
-            or (warn("LWP support unavailable!\n"), return);
-        ($scheme, $host, $path, $file) = 
-            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
-    }
-
-    $|++;
-    print "Fetching '$file' from $host... ";
-
-    unless (eval { require Socket; Socket::inet_aton($host) }) {
-        warn "'$host' resolve failed!\n";
-        return;
-    }
-
-    return unless $scheme eq 'ftp' or $scheme eq 'http';
-
-    require Cwd;
-    my $dir = Cwd::getcwd();
-    chdir $args{local_dir} or return if exists $args{local_dir};
-
-    if (eval { require LWP::Simple; 1 }) {
-        LWP::Simple::mirror($args{url}, $file);
-    }
-    elsif (eval { require Net::FTP; 1 }) { eval {
-        # use Net::FTP to get past firewall
-        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
-        $ftp->login("anonymous", 'anonymous@example.com');
-        $ftp->cwd($path);
-        $ftp->binary;
-        $ftp->get($file) or (warn("$!\n"), return);
-        $ftp->quit;
-    } }
-    elsif (my $ftp = $self->can_run('ftp')) { eval {
-        # no Net::FTP, fallback to ftp.exe
-        require FileHandle;
-        my $fh = FileHandle->new;
-
-        local $SIG{CHLD} = 'IGNORE';
-        unless ($fh->open("|$ftp -n")) {
-            warn "Couldn't open ftp: $!\n";
-            chdir $dir; return;
-        }
-
-        my @dialog = split(/\n/, <<"END_FTP");
-open $host
-user anonymous anonymous\@example.com
-cd $path
-binary
-get $file $file
-quit
-END_FTP
-        foreach (@dialog) { $fh->print("$_\n") }
-        $fh->close;
-    } }
-    else {
-        warn "No working 'ftp' program available!\n";
-        chdir $dir; return;
-    }
-
-    unless (-f $file) {
-        warn "Fetching failed: $@\n";
-        chdir $dir; return;
-    }
-
-    return if exists $args{size} and -s $file != $args{size};
-    system($args{run}) if exists $args{run};
-    unlink($file) if $args{remove};
-
-    print(((!exists $args{check_for} or -e $args{check_for})
-        ? "done!" : "failed! ($!)"), "\n");
-    chdir $dir; return !$?;
-}
-
-1;
+#line 1
+package Module::Install::Fetch;
+
+use strict;
+use Module::Install::Base ();
+
+use vars qw{$VERSION @ISA $ISCORE};
+BEGIN {
+	$VERSION = '1.06';
+	@ISA     = 'Module::Install::Base';
+	$ISCORE  = 1;
+}
+
+sub get_file {
+    my ($self, %args) = @_;
+    my ($scheme, $host, $path, $file) =
+        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
+
+    if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
+        $args{url} = $args{ftp_url}
+            or (warn("LWP support unavailable!\n"), return);
+        ($scheme, $host, $path, $file) =
+            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
+    }
+
+    $|++;
+    print "Fetching '$file' from $host... ";
+
+    unless (eval { require Socket; Socket::inet_aton($host) }) {
+        warn "'$host' resolve failed!\n";
+        return;
+    }
+
+    return unless $scheme eq 'ftp' or $scheme eq 'http';
+
+    require Cwd;
+    my $dir = Cwd::getcwd();
+    chdir $args{local_dir} or return if exists $args{local_dir};
+
+    if (eval { require LWP::Simple; 1 }) {
+        LWP::Simple::mirror($args{url}, $file);
+    }
+    elsif (eval { require Net::FTP; 1 }) { eval {
+        # use Net::FTP to get past firewall
+        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
+        $ftp->login("anonymous", 'anonymous@example.com');
+        $ftp->cwd($path);
+        $ftp->binary;
+        $ftp->get($file) or (warn("$!\n"), return);
+        $ftp->quit;
+    } }
+    elsif (my $ftp = $self->can_run('ftp')) { eval {
+        # no Net::FTP, fallback to ftp.exe
+        require FileHandle;
+        my $fh = FileHandle->new;
+
+        local $SIG{CHLD} = 'IGNORE';
+        unless ($fh->open("|$ftp -n")) {
+            warn "Couldn't open ftp: $!\n";
+            chdir $dir; return;
+        }
+
+        my @dialog = split(/\n/, <<"END_FTP");
+open $host
+user anonymous anonymous\@example.com
+cd $path
+binary
+get $file $file
+quit
+END_FTP
+        foreach (@dialog) { $fh->print("$_\n") }
+        $fh->close;
+    } }
+    else {
+        warn "No working 'ftp' program available!\n";
+        chdir $dir; return;
+    }
+
+    unless (-f $file) {
+        warn "Fetching failed: $@\n";
+        chdir $dir; return;
+    }
+
+    return if exists $args{size} and -s $file != $args{size};
+    system($args{run}) if exists $args{run};
+    unlink($file) if $args{remove};
+
+    print(((!exists $args{check_for} or -e $args{check_for})
+        ? "done!" : "failed! ($!)"), "\n");
+    chdir $dir; return !$?;
+}
+
+1;

@@ -1,245 +1,418 @@
-#line 1
-package Module::Install::Makefile;
-
-use strict 'vars';
-use Module::Install::Base;
-use ExtUtils::MakeMaker ();
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
-	$VERSION = '0.75';
-	$ISCORE  = 1;
-	@ISA     = qw{Module::Install::Base};
-}
-
-sub Makefile { $_[0] }
-
-my %seen = ();
-
-sub prompt {
-	shift;
-
-	# Infinite loop protection
-	my @c = caller();
-	if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
-		die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
-	}
-
-	# In automated testing, always use defaults
-	if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
-		local $ENV{PERL_MM_USE_DEFAULT} = 1;
-		goto &ExtUtils::MakeMaker::prompt;
-	} else {
-		goto &ExtUtils::MakeMaker::prompt;
-	}
-}
-
-sub makemaker_args {
-	my $self = shift;
-	my $args = ($self->{makemaker_args} ||= {});
-	  %$args = ( %$args, @_ ) if @_;
-	$args;
-}
-
-# For mm args that take multiple space-seperated args,
-# append an argument to the current list.
-sub makemaker_append {
-	my $self = sShift;
-	my $name = shift;
-	my $args = $self->makemaker_args;
-	$args->{name} = defined $args->{$name}
-		? join( ' ', $args->{name}, @_ )
-		: join( ' ', @_ );
-}
-
-sub build_subdirs {
-	my $self    = shift;
-	my $subdirs = $self->makemaker_args->{DIR} ||= [];
-	for my $subdir (@_) {
-		push @$subdirs, $subdir;
-	}
-}
-
-sub clean_files {
-	my $self  = shift;
-	my $clean = $self->makemaker_args->{clean} ||= {};
-	  %$clean = (
-		%$clean, 
-		FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
-	);
-}
-
-sub realclean_files {
-	my $self      = shift;
-	my $realclean = $self->makemaker_args->{realclean} ||= {};
-	  %$realclean = (
-		%$realclean, 
-		FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
-	);
-}
-
-sub libs {
-	my $self = shift;
-	my $libs = ref $_[0] ? shift : [ shift ];
-	$self->makemaker_args( LIBS => $libs );
-}
-
-sub inc {
-	my $self = shift;
-	$self->makemaker_args( INC => shift );
-}
-
-my %test_dir = ();
-
-sub _wanted_t {
-	/\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
-}
-
-sub tests_recursive {
-	my $self = shift;
-	if ( $self->tests ) {
-		die "tests_recursive will not work if tests are already defined";
-	}
-	my $dir = shift || 't';
-	unless ( -d $dir ) {
-		die "tests_recursive dir '$dir' does not exist";
-	}
-	%test_dir = ();
-	require File::Find;
-	File::Find::find( \&_wanted_t, $dir );
-	$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
-}
-
-sub write {
-	my $self = shift;
-	die "&Makefile->write() takes no arguments\n" if @_;
-
-	# Make sure we have a new enough
-	require ExtUtils::MakeMaker;
-	$self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION );
-
-	# Generate the 
-	my $args = $self->makemaker_args;
-	$args->{DISTNAME} = $self->name;
-	$args->{NAME}     = $self->module_name || $self->name;
-	$args->{VERSION}  = $self->version;
-	$args->{NAME}     =~ s/-/::/g;
-	if ( $self->tests ) {
-		$args->{test} = { TESTS => $self->tests };
-	}
-	if ($] >= 5.005) {
-		$args->{ABSTRACT} = $self->abstract;
-		$args->{AUTHOR}   = $self->author;
-	}
-	if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
-		$args->{NO_META} = 1;
-	}
-	if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
-		$args->{SIGN} = 1;
-	}
-	unless ( $self->is_admin ) {
-		delete $args->{SIGN};
-	}
-
-	# merge both kinds of requires into prereq_pm
-	my $prereq = ($args->{PREREQ_PM} ||= {});
-	%$prereq = ( %$prereq,
-		map { @$_ }
-		map { @$_ }
-		grep $_,
-		($self->configure_requires, $self->build_requires, $self->requires)
-	);
-
-	# Remove any reference to perl, PREREQ_PM doesn't support it
-	delete $args->{PREREQ_PM}->{perl};
-
-	# merge both kinds of requires into prereq_pm
-	my $subdirs = ($args->{DIR} ||= []);
-	if ($self->bundles) {
-		foreach my $bundle (@{ $self->bundles }) {
-			my ($file, $dir) = @$bundle;
-			push @$subdirs, $dir if -d $dir;
-			delete $prereq->{$file};
-		}
-	}
-
-	if ( my $perl_version = $self->perl_version ) {
-		eval "use $perl_version; 1"
-			or die "ERROR: perl: Version $] is installed, "
-			. "but we need version >= $perl_version";
-	}
-
-	$args->{INSTALLDIRS} = $self->installdirs;
-
-	my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
-
-	my $user_preop = delete $args{dist}->{PREOP};
-	if (my $preop = $self->admin->preop($user_preop)) {
-		$args{dist} = $preop;
-	}
-
-	my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
-	$self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
-}
-
-sub fix_up_makefile {
-	my $self          = shift;
-	my $makefile_name = shift;
-	my $top_class     = ref($self->_top) || '';
-	my $top_version   = $self->_top->VERSION || '';
-
-	my $preamble = $self->preamble 
-		? "# Preamble by $top_class $top_version\n"
-			. $self->preamble
-		: '';
-	my $postamble = "# Postamble by $top_class $top_version\n"
-		. ($self->postamble || '');
-
-	local *MAKEFILE;
-	open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
-	my $makefile = do { local $/; <MAKEFILE> };
-	close MAKEFILE or die $!;
-
-	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
-	$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
-	$makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
-	$makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
-	$makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
-
-	# Module::Install will never be used to build the Core Perl
-	# Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
-	# PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
-	$makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
-	#$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
-
-	# Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
-	$makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g;
-
-	# XXX - This is currently unused; not sure if it breaks other MM-users
-	# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
-
-	open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
-	print MAKEFILE  "$preamble$makefile$postamble" or die $!;
-	close MAKEFILE  or die $!;
-
-	1;
-}
-
-sub preamble {
-	my ($self, $text) = @_;
-	$self->{preamble} = $text . $self->{preamble} if defined $text;
-	$self->{preamble};
-}
-
-sub postamble {
-	my ($self, $text) = @_;
-	$self->{postamble} ||= $self->admin->postamble;
-	$self->{postamble} .= $text if defined $text;
-	$self->{postamble}
-}
-
-1;
-
-__END__
-
-#line 371
+#line 1
+package Module::Install::Makefile;
+
+use strict 'vars';
+use ExtUtils::MakeMaker   ();
+use Module::Install::Base ();
+use Fcntl qw/:flock :seek/;
+
+use vars qw{$VERSION @ISA $ISCORE};
+BEGIN {
+	$VERSION = '1.06';
+	@ISA     = 'Module::Install::Base';
+	$ISCORE  = 1;
+}
+
+sub Makefile { $_[0] }
+
+my %seen = ();
+
+sub prompt {
+	shift;
+
+	# Infinite loop protection
+	my @c = caller();
+	if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
+		die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
+	}
+
+	# In automated testing or non-interactive session, always use defaults
+	if ( ($ENV{AUTOMATED_TESTING} or -! -t STDIN) and ! $ENV{PERL_MM_USE_DEFAULT} ) {
+		local $ENV{PERL_MM_USE_DEFAULT} = 1;
+		goto &ExtUtils::MakeMaker::prompt;
+	} else {
+		goto &ExtUtils::MakeMaker::prompt;
+	}
+}
+
+# Store a cleaned up version of the MakeMaker version,
+# since we need to behave differently in a variety of
+# ways based on the MM version.
+my $makemaker = eval $ExtUtils::MakeMaker::VERSION;
+
+# If we are passed a param, do a "newer than" comparison.
+# Otherwise, just return the MakeMaker version.
+sub makemaker {
+	( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0
+}
+
+# Ripped from ExtUtils::MakeMaker 6.56, and slightly modified
+# as we only need to know here whether the attribute is an array
+# or a hash or something else (which may or may not be appendable).
+my %makemaker_argtype = (
+ C                  => 'ARRAY',
+ CONFIG             => 'ARRAY',
+# CONFIGURE          => 'CODE', # ignore
+ DIR                => 'ARRAY',
+ DL_FUNCS           => 'HASH',
+ DL_VARS            => 'ARRAY',
+ EXCLUDE_EXT        => 'ARRAY',
+ EXE_FILES          => 'ARRAY',
+ FUNCLIST           => 'ARRAY',
+ H                  => 'ARRAY',
+ IMPORTS            => 'HASH',
+ INCLUDE_EXT        => 'ARRAY',
+ LIBS               => 'ARRAY', # ignore ''
+ MAN1PODS           => 'HASH',
+ MAN3PODS           => 'HASH',
+ META_ADD           => 'HASH',
+ META_MERGE         => 'HASH',
+ PL_FILES           => 'HASH',
+ PM                 => 'HASH',
+ PMLIBDIRS          => 'ARRAY',
+ PMLIBPARENTDIRS    => 'ARRAY',
+ PREREQ_PM          => 'HASH',
+ CONFIGURE_REQUIRES => 'HASH',
+ SKIP               => 'ARRAY',
+ TYPEMAPS           => 'ARRAY',
+ XS                 => 'HASH',
+# VERSION            => ['version',''],  # ignore
+# _KEEP_AFTER_FLUSH  => '',
+
+ clean      => 'HASH',
+ depend     => 'HASH',
+ dist       => 'HASH',
+ dynamic_lib=> 'HASH',
+ linkext    => 'HASH',
+ macro      => 'HASH',
+ postamble  => 'HASH',
+ realclean  => 'HASH',
+ test       => 'HASH',
+ tool_autosplit => 'HASH',
+
+ # special cases where you can use makemaker_append
+ CCFLAGS   => 'APPENDABLE',
+ DEFINE    => 'APPENDABLE',
+ INC       => 'APPENDABLE',
+ LDDLFLAGS => 'APPENDABLE',
+ LDFROM    => 'APPENDABLE',
+);
+
+sub makemaker_args {
+	my ($self, %new_args) = @_;
+	my $args = ( $self->{makemaker_args} ||= {} );
+	foreach my $key (keys %new_args) {
+		if ($makemaker_argtype{$key}) {
+			if ($makemaker_argtype{$key} eq 'ARRAY') {
+				$args->{$key} = [] unless defined $args->{$key};
+				unless (ref $args->{$key} eq 'ARRAY') {
+					$args->{$key} = [$args->{$key}]
+				}
+				push @{$args->{$key}},
+					ref $new_args{$key} eq 'ARRAY'
+						? @{$new_args{$key}}
+						: $new_args{$key};
+			}
+			elsif ($makemaker_argtype{$key} eq 'HASH') {
+				$args->{$key} = {} unless defined $args->{$key};
+				foreach my $skey (keys %{ $new_args{$key} }) {
+					$args->{$key}{$skey} = $new_args{$key}{$skey};
+				}
+			}
+			elsif ($makemaker_argtype{$key} eq 'APPENDABLE') {
+				$self->makemaker_append($key => $new_args{$key});
+			}
+		}
+		else {
+			if (defined $args->{$key}) {
+				warn qq{MakeMaker attribute "$key" is overriden; use "makemaker_append" to append values\n};
+			}
+			$args->{$key} = $new_args{$key};
+		}
+	}
+	return $args;
+}
+
+# For mm args that take multiple space-seperated args,
+# append an argument to the current list.
+sub makemaker_append {
+	my $self = shift;
+	my $name = shift;
+	my $args = $self->makemaker_args;
+	$args->{$name} = defined $args->{$name}
+		? join( ' ', $args->{$name}, @_ )
+		: join( ' ', @_ );
+}
+
+sub build_subdirs {
+	my $self    = shift;
+	my $subdirs = $self->makemaker_args->{DIR} ||= [];
+	for my $subdir (@_) {
+		push @$subdirs, $subdir;
+	}
+}
+
+sub clean_files {
+	my $self  = shift;
+	my $clean = $self->makemaker_args->{clean} ||= {};
+	  %$clean = (
+		%$clean,
+		FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
+	);
+}
+
+sub realclean_files {
+	my $self      = shift;
+	my $realclean = $self->makemaker_args->{realclean} ||= {};
+	  %$realclean = (
+		%$realclean,
+		FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
+	);
+}
+
+sub libs {
+	my $self = shift;
+	my $libs = ref $_[0] ? shift : [ shift ];
+	$self->makemaker_args( LIBS => $libs );
+}
+
+sub inc {
+	my $self = shift;
+	$self->makemaker_args( INC => shift );
+}
+
+sub _wanted_t {
+}
+
+sub tests_recursive {
+	my $self = shift;
+	my $dir = shift || 't';
+	unless ( -d $dir ) {
+		die "tests_recursive dir '$dir' does not exist";
+	}
+	my %tests = map { $_ => 1 } split / /, ($self->tests || '');
+	require File::Find;
+	File::Find::find(
+        sub { /\.t$/ and -f $_ and $tests{"$File::Find::dir/*.t"} = 1 },
+        $dir
+    );
+	$self->tests( join ' ', sort keys %tests );
+}
+
+sub write {
+	my $self = shift;
+	die "&Makefile->write() takes no arguments\n" if @_;
+
+	# Check the current Perl version
+	my $perl_version = $self->perl_version;
+	if ( $perl_version ) {
+		eval "use $perl_version; 1"
+			or die "ERROR: perl: Version $] is installed, "
+			. "but we need version >= $perl_version";
+	}
+
+	# Make sure we have a new enough MakeMaker
+	require ExtUtils::MakeMaker;
+
+	if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
+		# This previous attempted to inherit the version of
+		# ExtUtils::MakeMaker in use by the module author, but this
+		# was found to be untenable as some authors build releases
+		# using future dev versions of EU:MM that nobody else has.
+		# Instead, #toolchain suggests we use 6.59 which is the most
+		# stable version on CPAN at time of writing and is, to quote
+		# ribasushi, "not terminally fucked, > and tested enough".
+		# TODO: We will now need to maintain this over time to push
+		# the version up as new versions are released.
+		$self->build_requires(     'ExtUtils::MakeMaker' => 6.59 );
+		$self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 );
+	} else {
+		# Allow legacy-compatibility with 5.005 by depending on the
+		# most recent EU:MM that supported 5.005.
+		$self->build_requires(     'ExtUtils::MakeMaker' => 6.36 );
+		$self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 );
+	}
+
+	# Generate the MakeMaker params
+	my $args = $self->makemaker_args;
+	$args->{DISTNAME} = $self->name;
+	$args->{NAME}     = $self->module_name || $self->name;
+	$args->{NAME}     =~ s/-/::/g;
+	$args->{VERSION}  = $self->version or die <<'EOT';
+ERROR: Can't determine distribution version. Please specify it
+explicitly via 'version' in Makefile.PL, or set a valid $VERSION
+in a module, and provide its file path via 'version_from' (or
+'all_from' if you prefer) in Makefile.PL.
+EOT
+
+	if ( $self->tests ) {
+		my @tests = split ' ', $self->tests;
+		my %seen;
+		$args->{test} = {
+			TESTS => (join ' ', grep {!$seen{$_}++} @tests),
+		};
+    } elsif ( $Module::Install::ExtraTests::use_extratests ) {
+        # Module::Install::ExtraTests doesn't set $self->tests and does its own tests via harness.
+        # So, just ignore our xt tests here.
+	} elsif ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
+		$args->{test} = {
+			TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ),
+		};
+	}
+	if ( $] >= 5.005 ) {
+		$args->{ABSTRACT} = $self->abstract;
+		$args->{AUTHOR}   = join ', ', @{$self->author || []};
+	}
+	if ( $self->makemaker(6.10) ) {
+		$args->{NO_META}   = 1;
+		#$args->{NO_MYMETA} = 1;
+	}
+	if ( $self->makemaker(6.17) and $self->sign ) {
+		$args->{SIGN} = 1;
+	}
+	unless ( $self->is_admin ) {
+		delete $args->{SIGN};
+	}
+	if ( $self->makemaker(6.31) and $self->license ) {
+		$args->{LICENSE} = $self->license;
+	}
+
+	my $prereq = ($args->{PREREQ_PM} ||= {});
+	%$prereq = ( %$prereq,
+		map { @$_ } # flatten [module => version]
+		map { @$_ }
+		grep $_,
+		($self->requires)
+	);
+
+	# Remove any reference to perl, PREREQ_PM doesn't support it
+	delete $args->{PREREQ_PM}->{perl};
+
+	# Merge both kinds of requires into BUILD_REQUIRES
+	my $build_prereq = ($args->{BUILD_REQUIRES} ||= {});
+	%$build_prereq = ( %$build_prereq,
+		map { @$_ } # flatten [module => version]
+		map { @$_ }
+		grep $_,
+		($self->configure_requires, $self->build_requires)
+	);
+
+	# Remove any reference to perl, BUILD_REQUIRES doesn't support it
+	delete $args->{BUILD_REQUIRES}->{perl};
+
+	# Delete bundled dists from prereq_pm, add it to Makefile DIR
+	my $subdirs = ($args->{DIR} || []);
+	if ($self->bundles) {
+		my %processed;
+		foreach my $bundle (@{ $self->bundles }) {
+			my ($mod_name, $dist_dir) = @$bundle;
+			delete $prereq->{$mod_name};
+			$dist_dir = File::Basename::basename($dist_dir); # dir for building this module
+			if (not exists $processed{$dist_dir}) {
+				if (-d $dist_dir) {
+					# List as sub-directory to be processed by make
+					push @$subdirs, $dist_dir;
+				}
+				# Else do nothing: the module is already present on the system
+				$processed{$dist_dir} = undef;
+			}
+		}
+	}
+
+	unless ( $self->makemaker('6.55_03') ) {
+		%$prereq = (%$prereq,%$build_prereq);
+		delete $args->{BUILD_REQUIRES};
+	}
+
+	if ( my $perl_version = $self->perl_version ) {
+		eval "use $perl_version; 1"
+			or die "ERROR: perl: Version $] is installed, "
+			. "but we need version >= $perl_version";
+
+		if ( $self->makemaker(6.48) ) {
+			$args->{MIN_PERL_VERSION} = $perl_version;
+		}
+	}
+
+	if ($self->installdirs) {
+		warn qq{old INSTALLDIRS (probably set by makemaker_args) is overriden by installdirs\n} if $args->{INSTALLDIRS};
+		$args->{INSTALLDIRS} = $self->installdirs;
+	}
+
+	my %args = map {
+		( $_ => $args->{$_} ) } grep {defined($args->{$_} )
+	} keys %$args;
+
+	my $user_preop = delete $args{dist}->{PREOP};
+	if ( my $preop = $self->admin->preop($user_preop) ) {
+		foreach my $key ( keys %$preop ) {
+			$args{dist}->{$key} = $preop->{$key};
+		}
+	}
+
+	my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
+	$self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
+}
+
+sub fix_up_makefile {
+	my $self          = shift;
+	my $makefile_name = shift;
+	my $top_class     = ref($self->_top) || '';
+	my $top_version   = $self->_top->VERSION || '';
+
+	my $preamble = $self->preamble
+		? "# Preamble by $top_class $top_version\n"
+			. $self->preamble
+		: '';
+	my $postamble = "# Postamble by $top_class $top_version\n"
+		. ($self->postamble || '');
+
+	local *MAKEFILE;
+	open MAKEFILE, "+< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
+	eval { flock MAKEFILE, LOCK_EX };
+	my $makefile = do { local $/; <MAKEFILE> };
+
+	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
+	$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
+	$makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
+	$makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
+	$makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
+
+	# Module::Install will never be used to build the Core Perl
+	# Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
+	# PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
+	$makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
+	#$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
+
+	# Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
+	$makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g;
+
+	# XXX - This is currently unused; not sure if it breaks other MM-users
+	# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
+
+	seek MAKEFILE, 0, SEEK_SET;
+	truncate MAKEFILE, 0;
+	print MAKEFILE  "$preamble$makefile$postamble" or die $!;
+	close MAKEFILE  or die $!;
+
+	1;
+}
+
+sub preamble {
+	my ($self, $text) = @_;
+	$self->{preamble} = $text . $self->{preamble} if defined $text;
+	$self->{preamble};
+}
+
+sub postamble {
+	my ($self, $text) = @_;
+	$self->{postamble} ||= $self->admin->postamble;
+	$self->{postamble} .= $text if defined $text;
+	$self->{postamble}
+}
+
+1;
+
+__END__
+
+#line 544

@@ -1,407 +1,722 @@
-#line 1
-package Module::Install::Metadata;
-
-use strict 'vars';
-use Module::Install::Base;
-
-use vars qw{$VERSION $ISCORE @ISA};
-BEGIN {
-	$VERSION = '0.75';
-	$ISCORE  = 1;
-	@ISA     = qw{Module::Install::Base};
-}
-
-my @scalar_keys = qw{
-	name
-	module_name
-	abstract
-	author
-	version
-	license
-	distribution_type
-	perl_version
-	tests
-	installdirs
-};
-
-my @tuple_keys = qw{
-	configure_requires
-	build_requires
-	requires
-	recommends
-	bundles
-	resources
-};
-
-sub Meta            { shift        }
-sub Meta_ScalarKeys { @scalar_keys }
-sub Meta_TupleKeys  { @tuple_keys  }
-
-foreach my $key (@scalar_keys) {
-	*$key = sub {
-		my $self = shift;
-		return $self->{values}{$key} if defined wantarray and !@_;
-		$self->{values}{$key} = shift;
-		return $self;
-	};
-}
-
-sub requires {
-	my $self = shift;
-	while ( @_ ) {
-		my $module  = shift or last;
-		my $version = shift || 0;
-		push @{ $self->{values}->{requires} }, [ $module, $version ];
-	}
-	$self->{values}{requires};
-}
-
-sub build_requires {
-	my $self = shift;
-	while ( @_ ) {
-		my $module  = shift or last;
-		my $version = shift || 0;
-		push @{ $self->{values}->{build_requires} }, [ $module, $version ];
-	}
-	$self->{values}{build_requires};
-}
-
-sub configure_requires {
-	my $self = shift;
-	while ( @_ ) {
-		my $module  = shift or last;
-		my $version = shift || 0;
-		push @{ $self->{values}->{configure_requires} }, [ $module, $version ];
-	}
-	$self->{values}->{configure_requires};
-}
-
-sub recommends {
-	my $self = shift;
-	while ( @_ ) {
-		my $module  = shift or last;
-		my $version = shift || 0;
-		push @{ $self->{values}->{recommends} }, [ $module, $version ];
-	}
-	$self->{values}->{recommends};
-}
-
-sub bundles {
-	my $self = shift;
-	while ( @_ ) {
-		my $module  = shift or last;
-		my $version = shift || 0;
-		push @{ $self->{values}->{bundles} }, [ $module, $version ];
-	}
-	$self->{values}->{bundles};
-}
-
-# Resource handling
-sub resources {
-	my $self = shift;
-	while ( @_ ) {
-		my $resource = shift or last;
-		my $value    = shift or next;
-		push @{ $self->{values}->{resources} }, [ $resource, $value ];
-	}
-	$self->{values}->{resources};
-}
-
-sub repository {
-	my $self = shift;
-	$self->resources( repository => shift );
-	return 1;
-}
-
-# Aliases for build_requires that will have alternative
-# meanings in some future version of META.yml.
-sub test_requires      { shift->build_requires(@_) }
-sub install_requires   { shift->build_requires(@_) }
-
-# Aliases for installdirs options
-sub install_as_core    { $_[0]->installdirs('perl')   }
-sub install_as_cpan    { $_[0]->installdirs('site')   }
-sub install_as_site    { $_[0]->installdirs('site')   }
-sub install_as_vendor  { $_[0]->installdirs('vendor') }
-
-sub sign {
-	my $self = shift;
-	return $self->{'values'}{'sign'} if defined wantarray and ! @_;
-	$self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
-	return $self;
-}
-
-sub dynamic_config {
-	my $self = shift;
-	unless ( @_ ) {
-		warn "You MUST provide an explicit true/false value to dynamic_config, skipping\n";
-		return $self;
-	}
-	$self->{values}{dynamic_config} = $_[0] ? 1 : 0;
-	return $self;
-}
-
-sub all_from {
-	my ( $self, $file ) = @_;
-
-	unless ( defined($file) ) {
-		my $name = $self->name
-			or die "all_from called with no args without setting name() first";
-		$file = join('/', 'lib', split(/-/, $name)) . '.pm';
-		$file =~ s{.*/}{} unless -e $file;
-		die "all_from: cannot find $file from $name" unless -e $file;
-	}
-
-	# Some methods pull from POD instead of code.
-	# If there is a matching .pod, use that instead
-	my $pod = $file;
-	$pod =~ s/\.pm$/.pod/i;
-	$pod = $file unless -e $pod;
-
-	# Pull the different values
-	$self->name_from($file)         unless $self->name;
-	$self->version_from($file)      unless $self->version;
-	$self->perl_version_from($file) unless $self->perl_version;
-	$self->author_from($pod)        unless $self->author;
-	$self->license_from($pod)       unless $self->license;
-	$self->abstract_from($pod)      unless $self->abstract;
-
-	return 1;
-}
-
-sub provides {
-	my $self     = shift;
-	my $provides = ( $self->{values}{provides} ||= {} );
-	%$provides = (%$provides, @_) if @_;
-	return $provides;
-}
-
-sub auto_provides {
-	my $self = shift;
-	return $self unless $self->is_admin;
-	unless (-e 'MANIFEST') {
-		warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
-		return $self;
-	}
-	# Avoid spurious warnings as we are not checking manifest here.
-	local $SIG{__WARN__} = sub {1};
-	require ExtUtils::Manifest;
-	local *ExtUtils::Manifest::manicheck = sub { return };
-
-	require Module::Build;
-	my $build = Module::Build->new(
-		dist_name    => $self->name,
-		dist_version => $self->version,
-		license      => $self->license,
-	);
-	$self->provides( %{ $build->find_dist_packages || {} } );
-}
-
-sub feature {
-	my $self     = shift;
-	my $name     = shift;
-	my $features = ( $self->{values}{features} ||= [] );
-	my $mods;
-
-	if ( @_ == 1 and ref( $_[0] ) ) {
-		# The user used ->feature like ->features by passing in the second
-		# argument as a reference.  Accomodate for that.
-		$mods = $_[0];
-	} else {
-		$mods = \@_;
-	}
-
-	my $count = 0;
-	push @$features, (
-		$name => [
-			map {
-				ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_
-			} @$mods
-		]
-	);
-
-	return @$features;
-}
-
-sub features {
-	my $self = shift;
-	while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
-		$self->feature( $name, @$mods );
-	}
-	return $self->{values}->{features}
-		? @{ $self->{values}->{features} }
-		: ();
-}
-
-sub no_index {
-	my $self = shift;
-	my $type = shift;
-	push @{ $self->{values}{no_index}{$type} }, @_ if $type;
-	return $self->{values}{no_index};
-}
-
-sub read {
-	my $self = shift;
-	$self->include_deps( 'YAML::Tiny', 0 );
-
-	require YAML::Tiny;
-	my $data = YAML::Tiny::LoadFile('META.yml');
-
-	# Call methods explicitly in case user has already set some values.
-	while ( my ( $key, $value ) = each %$data ) {
-		next unless $self->can($key);
-		if ( ref $value eq 'HASH' ) {
-			while ( my ( $module, $version ) = each %$value ) {
-				$self->can($key)->($self, $module => $version );
-			}
-		} else {
-			$self->can($key)->($self, $value);
-		}
-	}
-	return $self;
-}
-
-sub write {
-	my $self = shift;
-	return $self unless $self->is_admin;
-	$self->admin->write_meta;
-	return $self;
-}
-
-sub version_from {
-	require ExtUtils::MM_Unix;
-	my ( $self, $file ) = @_;
-	$self->version( ExtUtils::MM_Unix->parse_version($file) );
-}
-
-sub abstract_from {
-	require ExtUtils::MM_Unix;
-	my ( $self, $file ) = @_;
-	$self->abstract(
-		bless(
-			{ DISTNAME => $self->name },
-			'ExtUtils::MM_Unix'
-		)->parse_abstract($file)
-	 );
-}
-
-# Add both distribution and module name
-sub name_from {
-	my ($self, $file) = @_;
-	if (
-		Module::Install::_read($file) =~ m/
-		^ \s*
-		package \s*
-		([\w:]+)
-		\s* ;
-		/ixms
-	) {
-		my ($name, $module_name) = ($1, $1);
-		$name =~ s{::}{-}g;
-		$self->name($name);
-		unless ( $self->module_name ) {
-			$self->module_name($module_name);
-		}
-	} else {
-		die "Cannot determine name from $file\n";
-	}
-}
-
-sub perl_version_from {
-	my $self = shift;
-	if (
-		Module::Install::_read($_[0]) =~ m/
-		^
-		(?:use|require) \s*
-		v?
-		([\d_\.]+)
-		\s* ;
-		/ixms
-	) {
-		my $perl_version = $1;
-		$perl_version =~ s{_}{}g;
-		$self->perl_version($perl_version);
-	} else {
-		warn "Cannot determine perl version info from $_[0]\n";
-		return;
-	}
-}
-
-sub author_from {
-	my $self    = shift;
-	my $content = Module::Install::_read($_[0]);
-	if ($content =~ m/
-		=head \d \s+ (?:authors?)\b \s*
-		([^\n]*)
-		|
-		=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
-		.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
-		([^\n]*)
-	/ixms) {
-		my $author = $1 || $2;
-		$author =~ s{E<lt>}{<}g;
-		$author =~ s{E<gt>}{>}g;
-		$self->author($author);
-	} else {
-		warn "Cannot determine author info from $_[0]\n";
-	}
-}
-
-sub license_from {
-	my $self = shift;
-	if (
-		Module::Install::_read($_[0]) =~ m/
-		(
-			=head \d \s+
-			(?:licen[cs]e|licensing|copyright|legal)\b
-			.*?
-		)
-		(=head\\d.*|=cut.*|)
-		\z
-	/ixms ) {
-		my $license_text = $1;
-		my @phrases      = (
-			'under the same (?:terms|license) as perl itself' => 'perl',        1,
-			'GNU public license'                              => 'gpl',         1,
-			'GNU lesser public license'                       => 'lgpl',        1,
-			'BSD license'                                     => 'bsd',         1,
-			'Artistic license'                                => 'artistic',    1,
-			'GPL'                                             => 'gpl',         1,
-			'LGPL'                                            => 'lgpl',        1,
-			'BSD'                                             => 'bsd',         1,
-			'Artistic'                                        => 'artistic',    1,
-			'MIT'                                             => 'mit',         1,
-			'proprietary'                                     => 'proprietary', 0,
-		);
-		while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
-			$pattern =~ s{\s+}{\\s+}g;
-			if ( $license_text =~ /\b$pattern\b/i ) {
-				if ( $osi and $license_text =~ /All rights reserved/i ) {
-					print "WARNING: 'All rights reserved' in copyright may invalidate Open Source license.\n";
-				}
-				$self->license($license);
-				return 1;
-			}
-		}
-	}
-
-	warn "Cannot determine license info from $_[0]\n";
-	return 'unknown';
-}
-
-sub install_script {
-	my $self = shift;
-	my $args = $self->makemaker_args;
-	my $exe  = $args->{EXE_FILES} ||= [];
-        foreach ( @_ ) {
-		if ( -f $_ ) {
-			push @$exe, $_;
-		} elsif ( -d 'script' and -f "script/$_" ) {
-			push @$exe, "script/$_";
-		} else {
-			die "Cannot find script '$_'";
-		}
-	}
-}
-
-1;
+#line 1
+package Module::Install::Metadata;
+
+use strict 'vars';
+use Module::Install::Base ();
+
+use vars qw{$VERSION @ISA $ISCORE};
+BEGIN {
+	$VERSION = '1.06';
+	@ISA     = 'Module::Install::Base';
+	$ISCORE  = 1;
+}
+
+my @boolean_keys = qw{
+	sign
+};
+
+my @scalar_keys = qw{
+	name
+	module_name
+	abstract
+	version
+	distribution_type
+	tests
+	installdirs
+};
+
+my @tuple_keys = qw{
+	configure_requires
+	build_requires
+	requires
+	recommends
+	bundles
+	resources
+};
+
+my @resource_keys = qw{
+	homepage
+	bugtracker
+	repository
+};
+
+my @array_keys = qw{
+	keywords
+	author
+};
+
+*authors = \&author;
+
+sub Meta              { shift          }
+sub Meta_BooleanKeys  { @boolean_keys  }
+sub Meta_ScalarKeys   { @scalar_keys   }
+sub Meta_TupleKeys    { @tuple_keys    }
+sub Meta_ResourceKeys { @resource_keys }
+sub Meta_ArrayKeys    { @array_keys    }
+
+foreach my $key ( @boolean_keys ) {
+	*$key = sub {
+		my $self = shift;
+		if ( defined wantarray and not @_ ) {
+			return $self->{values}->{$key};
+		}
+		$self->{values}->{$key} = ( @_ ? $_[0] : 1 );
+		return $self;
+	};
+}
+
+foreach my $key ( @scalar_keys ) {
+	*$key = sub {
+		my $self = shift;
+		return $self->{values}->{$key} if defined wantarray and !@_;
+		$self->{values}->{$key} = shift;
+		return $self;
+	};
+}
+
+foreach my $key ( @array_keys ) {
+	*$key = sub {
+		my $self = shift;
+		return $self->{values}->{$key} if defined wantarray and !@_;
+		$self->{values}->{$key} ||= [];
+		push @{$self->{values}->{$key}}, @_;
+		return $self;
+	};
+}
+
+foreach my $key ( @resource_keys ) {
+	*$key = sub {
+		my $self = shift;
+		unless ( @_ ) {
+			return () unless $self->{values}->{resources};
+			return map  { $_->[1] }
+			       grep { $_->[0] eq $key }
+			       @{ $self->{values}->{resources} };
+		}
+		return $self->{values}->{resources}->{$key} unless @_;
+		my $uri = shift or die(
+			"Did not provide a value to $key()"
+		);
+		$self->resources( $key => $uri );
+		return 1;
+	};
+}
+
+foreach my $key ( grep { $_ ne "resources" } @tuple_keys) {
+	*$key = sub {
+		my $self = shift;
+		return $self->{values}->{$key} unless @_;
+		my @added;
+		while ( @_ ) {
+			my $module  = shift or last;
+			my $version = shift || 0;
+			push @added, [ $module, $version ];
+		}
+		push @{ $self->{values}->{$key} }, @added;
+		return map {@$_} @added;
+	};
+}
+
+# Resource handling
+my %lc_resource = map { $_ => 1 } qw{
+	homepage
+	license
+	bugtracker
+	repository
+};
+
+sub resources {
+	my $self = shift;
+	while ( @_ ) {
+		my $name  = shift or last;
+		my $value = shift or next;
+		if ( $name eq lc $name and ! $lc_resource{$name} ) {
+			die("Unsupported reserved lowercase resource '$name'");
+		}
+		$self->{values}->{resources} ||= [];
+		push @{ $self->{values}->{resources} }, [ $name, $value ];
+	}
+	$self->{values}->{resources};
+}
+
+# Aliases for build_requires that will have alternative
+# meanings in some future version of META.yml.
+sub test_requires     { shift->build_requires(@_) }
+sub install_requires  { shift->build_requires(@_) }
+
+# Aliases for installdirs options
+sub install_as_core   { $_[0]->installdirs('perl')   }
+sub install_as_cpan   { $_[0]->installdirs('site')   }
+sub install_as_site   { $_[0]->installdirs('site')   }
+sub install_as_vendor { $_[0]->installdirs('vendor') }
+
+sub dynamic_config {
+	my $self  = shift;
+	my $value = @_ ? shift : 1;
+	if ( $self->{values}->{dynamic_config} ) {
+		# Once dynamic we never change to static, for safety
+		return 0;
+	}
+	$self->{values}->{dynamic_config} = $value ? 1 : 0;
+	return 1;
+}
+
+# Convenience command
+sub static_config {
+	shift->dynamic_config(0);
+}
+
+sub perl_version {
+	my $self = shift;
+	return $self->{values}->{perl_version} unless @_;
+	my $version = shift or die(
+		"Did not provide a value to perl_version()"
+	);
+
+	# Normalize the version
+	$version = $self->_perl_version($version);
+
+	# We don't support the really old versions
+	unless ( $version >= 5.005 ) {
+		die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n";
+	}
+
+	$self->{values}->{perl_version} = $version;
+}
+
+sub all_from {
+	my ( $self, $file ) = @_;
+
+	unless ( defined($file) ) {
+		my $name = $self->name or die(
+			"all_from called with no args without setting name() first"
+		);
+		$file = join('/', 'lib', split(/-/, $name)) . '.pm';
+		$file =~ s{.*/}{} unless -e $file;
+		unless ( -e $file ) {
+			die("all_from cannot find $file from $name");
+		}
+	}
+	unless ( -f $file ) {
+		die("The path '$file' does not exist, or is not a file");
+	}
+
+	$self->{values}{all_from} = $file;
+
+	# Some methods pull from POD instead of code.
+	# If there is a matching .pod, use that instead
+	my $pod = $file;
+	$pod =~ s/\.pm$/.pod/i;
+	$pod = $file unless -e $pod;
+
+	# Pull the different values
+	$self->name_from($file)         unless $self->name;
+	$self->version_from($file)      unless $self->version;
+	$self->perl_version_from($file) unless $self->perl_version;
+	$self->author_from($pod)        unless @{$self->author || []};
+	$self->license_from($pod)       unless $self->license;
+	$self->abstract_from($pod)      unless $self->abstract;
+
+	return 1;
+}
+
+sub provides {
+	my $self     = shift;
+	my $provides = ( $self->{values}->{provides} ||= {} );
+	%$provides = (%$provides, @_) if @_;
+	return $provides;
+}
+
+sub auto_provides {
+	my $self = shift;
+	return $self unless $self->is_admin;
+	unless (-e 'MANIFEST') {
+		warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
+		return $self;
+	}
+	# Avoid spurious warnings as we are not checking manifest here.
+	local $SIG{__WARN__} = sub {1};
+	require ExtUtils::Manifest;
+	local *ExtUtils::Manifest::manicheck = sub { return };
+
+	require Module::Build;
+	my $build = Module::Build->new(
+		dist_name    => $self->name,
+		dist_version => $self->version,
+		license      => $self->license,
+	);
+	$self->provides( %{ $build->find_dist_packages || {} } );
+}
+
+sub feature {
+	my $self     = shift;
+	my $name     = shift;
+	my $features = ( $self->{values}->{features} ||= [] );
+	my $mods;
+
+	if ( @_ == 1 and ref( $_[0] ) ) {
+		# The user used ->feature like ->features by passing in the second
+		# argument as a reference.  Accomodate for that.
+		$mods = $_[0];
+	} else {
+		$mods = \@_;
+	}
+
+	my $count = 0;
+	push @$features, (
+		$name => [
+			map {
+				ref($_) ? ( ref($_) eq 'HASH' ) ? %$_ : @$_ : $_
+			} @$mods
+		]
+	);
+
+	return @$features;
+}
+
+sub features {
+	my $self = shift;
+	while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
+		$self->feature( $name, @$mods );
+	}
+	return $self->{values}->{features}
+		? @{ $self->{values}->{features} }
+		: ();
+}
+
+sub no_index {
+	my $self = shift;
+	my $type = shift;
+	push @{ $self->{values}->{no_index}->{$type} }, @_ if $type;
+	return $self->{values}->{no_index};
+}
+
+sub read {
+	my $self = shift;
+	$self->include_deps( 'YAML::Tiny', 0 );
+
+	require YAML::Tiny;
+	my $data = YAML::Tiny::LoadFile('META.yml');
+
+	# Call methods explicitly in case user has already set some values.
+	while ( my ( $key, $value ) = each %$data ) {
+		next unless $self->can($key);
+		if ( ref $value eq 'HASH' ) {
+			while ( my ( $module, $version ) = each %$value ) {
+				$self->can($key)->($self, $module => $version );
+			}
+		} else {
+			$self->can($key)->($self, $value);
+		}
+	}
+	return $self;
+}
+
+sub write {
+	my $self = shift;
+	return $self unless $self->is_admin;
+	$self->admin->write_meta;
+	return $self;
+}
+
+sub version_from {
+	require ExtUtils::MM_Unix;
+	my ( $self, $file ) = @_;
+	$self->version( ExtUtils::MM_Unix->parse_version($file) );
+
+	# for version integrity check
+	$self->makemaker_args( VERSION_FROM => $file );
+}
+
+sub abstract_from {
+	require ExtUtils::MM_Unix;
+	my ( $self, $file ) = @_;
+	$self->abstract(
+		bless(
+			{ DISTNAME => $self->name },
+			'ExtUtils::MM_Unix'
+		)->parse_abstract($file)
+	);
+}
+
+# Add both distribution and module name
+sub name_from {
+	my ($self, $file) = @_;
+	if (
+		Module::Install::_read($file) =~ m/
+		^ \s*
+		package \s*
+		([\w:]+)
+		\s* ;
+		/ixms
+	) {
+		my ($name, $module_name) = ($1, $1);
+		$name =~ s{::}{-}g;
+		$self->name($name);
+		unless ( $self->module_name ) {
+			$self->module_name($module_name);
+		}
+	} else {
+		die("Cannot determine name from $file\n");
+	}
+}
+
+sub _extract_perl_version {
+	if (
+		$_[0] =~ m/
+		^\s*
+		(?:use|require) \s*
+		v?
+		([\d_\.]+)
+		\s* ;
+		/ixms
+	) {
+		my $perl_version = $1;
+		$perl_version =~ s{_}{}g;
+		return $perl_version;
+	} else {
+		return;
+	}
+}
+
+sub perl_version_from {
+	my $self = shift;
+	my $perl_version=_extract_perl_version(Module::Install::_read($_[0]));
+	if ($perl_version) {
+		$self->perl_version($perl_version);
+	} else {
+		warn "Cannot determine perl version info from $_[0]\n";
+		return;
+	}
+}
+
+sub author_from {
+	my $self    = shift;
+	my $content = Module::Install::_read($_[0]);
+	if ($content =~ m/
+		=head \d \s+ (?:authors?)\b \s*
+		([^\n]*)
+		|
+		=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
+		.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
+		([^\n]*)
+	/ixms) {
+		my $author = $1 || $2;
+
+		# XXX: ugly but should work anyway...
+		if (eval "require Pod::Escapes; 1") {
+			# Pod::Escapes has a mapping table.
+			# It's in core of perl >= 5.9.3, and should be installed
+			# as one of the Pod::Simple's prereqs, which is a prereq
+			# of Pod::Text 3.x (see also below).
+			$author =~ s{ E<( (\d+) | ([A-Za-z]+) )> }
+			{
+				defined $2
+				? chr($2)
+				: defined $Pod::Escapes::Name2character_number{$1}
+				? chr($Pod::Escapes::Name2character_number{$1})
+				: do {
+					warn "Unknown escape: E<$1>";
+					"E<$1>";
+				};
+			}gex;
+		}
+		elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
+			# Pod::Text < 3.0 has yet another mapping table,
+			# though the table name of 2.x and 1.x are different.
+			# (1.x is in core of Perl < 5.6, 2.x is in core of
+			# Perl < 5.9.3)
+			my $mapping = ($Pod::Text::VERSION < 2)
+				? \%Pod::Text::HTML_Escapes
+				: \%Pod::Text::ESCAPES;
+			$author =~ s{ E<( (\d+) | ([A-Za-z]+) )> }
+			{
+				defined $2
+				? chr($2)
+				: defined $mapping->{$1}
+				? $mapping->{$1}
+				: do {
+					warn "Unknown escape: E<$1>";
+					"E<$1>";
+				};
+			}gex;
+		}
+		else {
+			$author =~ s{E<lt>}{<}g;
+			$author =~ s{E<gt>}{>}g;
+		}
+		$self->author($author);
+	} else {
+		warn "Cannot determine author info from $_[0]\n";
+	}
+}
+
+#Stolen from M::B
+my %license_urls = (
+    perl         => 'http://dev.perl.org/licenses/',
+    apache       => 'http://apache.org/licenses/LICENSE-2.0',
+    apache_1_1   => 'http://apache.org/licenses/LICENSE-1.1',
+    artistic     => 'http://opensource.org/licenses/artistic-license.php',
+    artistic_2   => 'http://opensource.org/licenses/artistic-license-2.0.php',
+    lgpl         => 'http://opensource.org/licenses/lgpl-license.php',
+    lgpl2        => 'http://opensource.org/licenses/lgpl-2.1.php',
+    lgpl3        => 'http://opensource.org/licenses/lgpl-3.0.html',
+    bsd          => 'http://opensource.org/licenses/bsd-license.php',
+    gpl          => 'http://opensource.org/licenses/gpl-license.php',
+    gpl2         => 'http://opensource.org/licenses/gpl-2.0.php',
+    gpl3         => 'http://opensource.org/licenses/gpl-3.0.html',
+    mit          => 'http://opensource.org/licenses/mit-license.php',
+    mozilla      => 'http://opensource.org/licenses/mozilla1.1.php',
+    open_source  => undef,
+    unrestricted => undef,
+    restrictive  => undef,
+    unknown      => undef,
+);
+
+sub license {
+	my $self = shift;
+	return $self->{values}->{license} unless @_;
+	my $license = shift or die(
+		'Did not provide a value to license()'
+	);
+	$license = __extract_license($license) || lc $license;
+	$self->{values}->{license} = $license;
+
+	# Automatically fill in license URLs
+	if ( $license_urls{$license} ) {
+		$self->resources( license => $license_urls{$license} );
+	}
+
+	return 1;
+}
+
+sub _extract_license {
+	my $pod = shift;
+	my $matched;
+	return __extract_license(
+		($matched) = $pod =~ m/
+			(=head \d \s+ L(?i:ICEN[CS]E|ICENSING)\b.*?)
+			(=head \d.*|=cut.*|)\z
+		/xms
+	) || __extract_license(
+		($matched) = $pod =~ m/
+			(=head \d \s+ (?:C(?i:OPYRIGHTS?)|L(?i:EGAL))\b.*?)
+			(=head \d.*|=cut.*|)\z
+		/xms
+	);
+}
+
+sub __extract_license {
+	my $license_text = shift or return;
+	my @phrases      = (
+		'(?:under )?the same (?:terms|license) as (?:perl|the perl (?:\d )?programming language)' => 'perl', 1,
+		'(?:under )?the terms of (?:perl|the perl programming language) itself' => 'perl', 1,
+		'Artistic and GPL'                   => 'perl',         1,
+		'GNU general public license'         => 'gpl',          1,
+		'GNU public license'                 => 'gpl',          1,
+		'GNU lesser general public license'  => 'lgpl',         1,
+		'GNU lesser public license'          => 'lgpl',         1,
+		'GNU library general public license' => 'lgpl',         1,
+		'GNU library public license'         => 'lgpl',         1,
+		'GNU Free Documentation license'     => 'unrestricted', 1,
+		'GNU Affero General Public License'  => 'open_source',  1,
+		'(?:Free)?BSD license'               => 'bsd',          1,
+		'Artistic license 2\.0'              => 'artistic_2',   1,
+		'Artistic license'                   => 'artistic',     1,
+		'Apache (?:Software )?license'       => 'apache',       1,
+		'GPL'                                => 'gpl',          1,
+		'LGPL'                               => 'lgpl',         1,
+		'BSD'                                => 'bsd',          1,
+		'Artistic'                           => 'artistic',     1,
+		'MIT'                                => 'mit',          1,
+		'Mozilla Public License'             => 'mozilla',      1,
+		'Q Public License'                   => 'open_source',  1,
+		'OpenSSL License'                    => 'unrestricted', 1,
+		'SSLeay License'                     => 'unrestricted', 1,
+		'zlib License'                       => 'open_source',  1,
+		'proprietary'                        => 'proprietary',  0,
+	);
+	while ( my ($pattern, $license, $osi) = splice(@phrases, 0, 3) ) {
+		$pattern =~ s#\s+#\\s+#gs;
+		if ( $license_text =~ /\b$pattern\b/i ) {
+			return $license;
+		}
+	}
+	return '';
+}
+
+sub license_from {
+	my $self = shift;
+	if (my $license=_extract_license(Module::Install::_read($_[0]))) {
+		$self->license($license);
+	} else {
+		warn "Cannot determine license info from $_[0]\n";
+		return 'unknown';
+	}
+}
+
+sub _extract_bugtracker {
+	my @links   = $_[0] =~ m#L<(
+	 https?\Q://rt.cpan.org/\E[^>]+|
+	 https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+	 https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
+	 )>#gx;
+	my %links;
+	@links{@links}=();
+	@links=keys %links;
+	return @links;
+}
+
+sub bugtracker_from {
+	my $self    = shift;
+	my $content = Module::Install::_read($_[0]);
+	my @links   = _extract_bugtracker($content);
+	unless ( @links ) {
+		warn "Cannot determine bugtracker info from $_[0]\n";
+		return 0;
+	}
+	if ( @links > 1 ) {
+		warn "Found more than one bugtracker link in $_[0]\n";
+		return 0;
+	}
+
+	# Set the bugtracker
+	bugtracker( $links[0] );
+	return 1;
+}
+
+sub requires_from {
+	my $self     = shift;
+	my $content  = Module::Install::_readperl($_[0]);
+	my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg;
+	while ( @requires ) {
+		my $module  = shift @requires;
+		my $version = shift @requires;
+		$self->requires( $module => $version );
+	}
+}
+
+sub test_requires_from {
+	my $self     = shift;
+	my $content  = Module::Install::_readperl($_[0]);
+	my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
+	while ( @requires ) {
+		my $module  = shift @requires;
+		my $version = shift @requires;
+		$self->test_requires( $module => $version );
+	}
+}
+
+# Convert triple-part versions (eg, 5.6.1 or 5.8.9) to
+# numbers (eg, 5.006001 or 5.008009).
+# Also, convert double-part versions (eg, 5.8)
+sub _perl_version {
+	my $v = $_[-1];
+	$v =~ s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/e;
+	$v =~ s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/e;
+	$v =~ s/(\.\d\d\d)000$/$1/;
+	$v =~ s/_.+$//;
+	if ( ref($v) ) {
+		# Numify
+		$v = $v + 0;
+	}
+	return $v;
+}
+
+sub add_metadata {
+    my $self = shift;
+    my %hash = @_;
+    for my $key (keys %hash) {
+        warn "add_metadata: $key is not prefixed with 'x_'.\n" .
+             "Use appopriate function to add non-private metadata.\n" unless $key =~ /^x_/;
+        $self->{values}->{$key} = $hash{$key};
+    }
+}
+
+
+######################################################################
+# MYMETA Support
+
+sub WriteMyMeta {
+	die "WriteMyMeta has been deprecated";
+}
+
+sub write_mymeta_yaml {
+	my $self = shift;
+
+	# We need YAML::Tiny to write the MYMETA.yml file
+	unless ( eval { require YAML::Tiny; 1; } ) {
+		return 1;
+	}
+
+	# Generate the data
+	my $meta = $self->_write_mymeta_data or return 1;
+
+	# Save as the MYMETA.yml file
+	print "Writing MYMETA.yml\n";
+	YAML::Tiny::DumpFile('MYMETA.yml', $meta);
+}
+
+sub write_mymeta_json {
+	my $self = shift;
+
+	# We need JSON to write the MYMETA.json file
+	unless ( eval { require JSON; 1; } ) {
+		return 1;
+	}
+
+	# Generate the data
+	my $meta = $self->_write_mymeta_data or return 1;
+
+	# Save as the MYMETA.yml file
+	print "Writing MYMETA.json\n";
+	Module::Install::_write(
+		'MYMETA.json',
+		JSON->new->pretty(1)->canonical->encode($meta),
+	);
+}
+
+sub _write_mymeta_data {
+	my $self = shift;
+
+	# If there's no existing META.yml there is nothing we can do
+	return undef unless -f 'META.yml';
+
+	# We need Parse::CPAN::Meta to load the file
+	unless ( eval { require Parse::CPAN::Meta; 1; } ) {
+		return undef;
+	}
+
+	# Merge the perl version into the dependencies
+	my $val  = $self->Meta->{values};
+	my $perl = delete $val->{perl_version};
+	if ( $perl ) {
+		$val->{requires} ||= [];
+		my $requires = $val->{requires};
+
+		# Canonize to three-dot version after Perl 5.6
+		if ( $perl >= 5.006 ) {
+			$perl =~ s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2||0), int($3||0))}e
+		}
+		unshift @$requires, [ perl => $perl ];
+	}
+
+	# Load the advisory META.yml file
+	my @yaml = Parse::CPAN::Meta::LoadFile('META.yml');
+	my $meta = $yaml[0];
+
+	# Overwrite the non-configure dependency hashs
+	delete $meta->{requires};
+	delete $meta->{build_requires};
+	delete $meta->{recommends};
+	if ( exists $val->{requires} ) {
+		$meta->{requires} = { map { @$_ } @{ $val->{requires} } };
+	}
+	if ( exists $val->{build_requires} ) {
+		$meta->{build_requires} = { map { @$_ } @{ $val->{build_requires} } };
+	}
+
+	return $meta;
+}
+
+1;

@@ -1,64 +1,64 @@
-#line 1
-package Module::Install::Win32;
-
-use strict;
-use Module::Install::Base;
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
-	$VERSION = '0.75';
-	@ISA     = qw{Module::Install::Base};
-	$ISCORE  = 1;
-}
-
-# determine if the user needs nmake, and download it if needed
-sub check_nmake {
-	my $self = shift;
-	$self->load('can_run');
-	$self->load('get_file');
-
-	require Config;
-	return unless (
-		$^O eq 'MSWin32'                     and
-		$Config::Config{make}                and
-		$Config::Config{make} =~ /^nmake\b/i and
-		! $self->can_run('nmake')
-	);
-
-	print "The required 'nmake' executable not found, fetching it...\n";
-
-	require File::Basename;
-	my $rv = $self->get_file(
-		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
-		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
-		local_dir => File::Basename::dirname($^X),
-		size      => 51928,
-		run       => 'Nmake15.exe /o > nul',
-		check_for => 'Nmake.exe',
-		remove    => 1,
-	);
-
-	die <<'END_MESSAGE' unless $rv;
-
--------------------------------------------------------------------------------
-
-Since you are using Microsoft Windows, you will need the 'nmake' utility
-before installation. It's available at:
-
-  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
-      or
-  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe
-
-Please download the file manually, save it to a directory in %PATH% (e.g.
-C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
-that directory, and run "Nmake15.exe" from there; that will create the
-'nmake.exe' file needed by this module.
-
-You may then resume the installation process described in README.
-
--------------------------------------------------------------------------------
-END_MESSAGE
-
-}
-
-1;
+#line 1
+package Module::Install::Win32;
+
+use strict;
+use Module::Install::Base ();
+
+use vars qw{$VERSION @ISA $ISCORE};
+BEGIN {
+	$VERSION = '1.06';
+	@ISA     = 'Module::Install::Base';
+	$ISCORE  = 1;
+}
+
+# determine if the user needs nmake, and download it if needed
+sub check_nmake {
+	my $self = shift;
+	$self->load('can_run');
+	$self->load('get_file');
+
+	require Config;
+	return unless (
+		$^O eq 'MSWin32'                     and
+		$Config::Config{make}                and
+		$Config::Config{make} =~ /^nmake\b/i and
+		! $self->can_run('nmake')
+	);
+
+	print "The required 'nmake' executable not found, fetching it...\n";
+
+	require File::Basename;
+	my $rv = $self->get_file(
+		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
+		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
+		local_dir => File::Basename::dirname($^X),
+		size      => 51928,
+		run       => 'Nmake15.exe /o > nul',
+		check_for => 'Nmake.exe',
+		remove    => 1,
+	);
+
+	die <<'END_MESSAGE' unless $rv;
+
+-------------------------------------------------------------------------------
+
+Since you are using Microsoft Windows, you will need the 'nmake' utility
+before installation. It's available at:
+
+  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
+      or
+  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe
+
+Please download the file manually, save it to a directory in %PATH% (e.g.
+C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
+that directory, and run "Nmake15.exe" from there; that will create the
+'nmake.exe' file needed by this module.
+
+You may then resume the installation process described in README.
+
+-------------------------------------------------------------------------------
+END_MESSAGE
+
+}
+
+1;

@@ -1,40 +1,63 @@
-#line 1
-package Module::Install::WriteAll;
-
-use strict;
-use Module::Install::Base;
-
-use vars qw{$VERSION @ISA $ISCORE};
-BEGIN {
-	$VERSION = '0.75';
-	@ISA     = qw{Module::Install::Base};
-	$ISCORE  = 1;
-}
-
-sub WriteAll {
-	my $self = shift;
-	my %args = (
-		meta        => 1,
-		sign        => 0,
-		inline      => 0,
-		check_nmake => 1,
-		@_,
-	);
-
-	$self->sign(1)                if $args{sign};
-	$self->Meta->write            if $args{meta};
-	$self->admin->WriteAll(%args) if $self->is_admin;
-
-	$self->check_nmake if $args{check_nmake};
-	unless ( $self->makemaker_args->{PL_FILES} ) {
-		$self->makemaker_args( PL_FILES => {} );
-	}
-
-	if ( $args{inline} ) {
-		$self->Inline->write;
-	} else {
-		$self->Makefile->write;
-	}
-}
-
-1;
+#line 1
+package Module::Install::WriteAll;
+
+use strict;
+use Module::Install::Base ();
+
+use vars qw{$VERSION @ISA $ISCORE};
+BEGIN {
+	$VERSION = '1.06';
+	@ISA     = qw{Module::Install::Base};
+	$ISCORE  = 1;
+}
+
+sub WriteAll {
+	my $self = shift;
+	my %args = (
+		meta        => 1,
+		sign        => 0,
+		inline      => 0,
+		check_nmake => 1,
+		@_,
+	);
+
+	$self->sign(1)                if $args{sign};
+	$self->admin->WriteAll(%args) if $self->is_admin;
+
+	$self->check_nmake if $args{check_nmake};
+	unless ( $self->makemaker_args->{PL_FILES} ) {
+		# XXX: This still may be a bit over-defensive...
+		unless ($self->makemaker(6.25)) {
+			$self->makemaker_args( PL_FILES => {} ) if -f 'Build.PL';
+		}
+	}
+
+	# Until ExtUtils::MakeMaker support MYMETA.yml, make sure
+	# we clean it up properly ourself.
+	$self->realclean_files('MYMETA.yml');
+
+	if ( $args{inline} ) {
+		$self->Inline->write;
+	} else {
+		$self->Makefile->write;
+	}
+
+	# The Makefile write process adds a couple of dependencies,
+	# so write the META.yml files after the Makefile.
+	if ( $args{meta} ) {
+		$self->Meta->write;
+	}
+
+	# Experimental support for MYMETA
+	if ( $ENV{X_MYMETA} ) {
+		if ( $ENV{X_MYMETA} eq 'JSON' ) {
+			$self->Meta->write_mymeta_json;
+		} else {
+			$self->Meta->write_mymeta_yaml;
+		}
+	}
+
+	return 1;
+}
+
+1;

@@ -1,353 +1,470 @@
-#line 1
-package Module::Install;
-
-# For any maintainers:
-# The load order for Module::Install is a bit magic.
-# It goes something like this...
-#
-# IF ( host has Module::Install installed, creating author mode ) {
-#     1. Makefile.PL calls "use inc::Module::Install"
-#     2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
-#     3. The installed version of inc::Module::Install loads
-#     4. inc::Module::Install calls "require Module::Install"
-#     5. The ./inc/ version of Module::Install loads
-# } ELSE {
-#     1. Makefile.PL calls "use inc::Module::Install"
-#     2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
-#     3. The ./inc/ version of Module::Install loads
-# }
-
-BEGIN {
-	require 5.004;
-}
-use strict 'vars';
-
-use vars qw{$VERSION};
-BEGIN {
-	# All Module::Install core packages now require synchronised versions.
-	# This will be used to ensure we don't accidentally load old or
-	# different versions of modules.
-	# This is not enforced yet, but will be some time in the next few
-	# releases once we can make sure it won't clash with custom
-	# Module::Install extensions.
-	$VERSION = '0.75';
-
-	*inc::Module::Install::VERSION = *VERSION;
-	@inc::Module::Install::ISA     = __PACKAGE__;
-
-}
-
-
-
-
-
-# Whether or not inc::Module::Install is actually loaded, the
-# $INC{inc/Module/Install.pm} is what will still get set as long as
-# the caller loaded module this in the documented manner.
-# If not set, the caller may NOT have loaded the bundled version, and thus
-# they may not have a MI version that works with the Makefile.PL. This would
-# result in false errors or unexpected behaviour. And we don't want that.
-my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
-unless ( $INC{$file} ) { die <<"END_DIE" }
-
-Please invoke ${\__PACKAGE__} with:
-
-	use inc::${\__PACKAGE__};
-
-not:
-
-	use ${\__PACKAGE__};
-
-END_DIE
-
-
-
-
-
-# If the script that is loading Module::Install is from the future,
-# then make will detect this and cause it to re-run over and over
-# again. This is bad. Rather than taking action to touch it (which
-# is unreliable on some platforms and requires write permissions)
-# for now we should catch this and refuse to run.
-if ( -f $0 and (stat($0))[9] > time ) { die <<"END_DIE" }
-
-Your installer $0 has a modification time in the future.
-
-This is known to create infinite loops in make.
-
-Please correct this, then run $0 again.
-
-END_DIE
-
-
-
-
-
-# Build.PL was formerly supported, but no longer is due to excessive
-# difficulty in implementing every single feature twice.
-if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" }
-
-Module::Install no longer supports Build.PL.
-
-It was impossible to maintain duel backends, and has been deprecated.
-
-Please remove all Build.PL files and only use the Makefile.PL installer.
-
-END_DIE
-
-
-
-
-
-# To save some more typing in Module::Install installers, every...
-# use inc::Module::Install
-# ...also acts as an implicit use strict.
-$^H |= strict::bits(qw(refs subs vars));
-
-
-
-
-
-use Cwd        ();
-use File::Find ();
-use File::Path ();
-use FindBin;
-
-sub autoload {
-	my $self = shift;
-	my $who  = $self->_caller;
-	my $cwd  = Cwd::cwd();
-	my $sym  = "${who}::AUTOLOAD";
-	$sym->{$cwd} = sub {
-		my $pwd = Cwd::cwd();
-		if ( my $code = $sym->{$pwd} ) {
-			# delegate back to parent dirs
-			goto &$code unless $cwd eq $pwd;
-		}
-		$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
-		unshift @_, ( $self, $1 );
-		goto &{$self->can('call')} unless uc($1) eq $1;
-	};
-}
-
-sub import {
-	my $class = shift;
-	my $self  = $class->new(@_);
-	my $who   = $self->_caller;
-
-	unless ( -f $self->{file} ) {
-		require "$self->{path}/$self->{dispatch}.pm";
-		File::Path::mkpath("$self->{prefix}/$self->{author}");
-		$self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
-		$self->{admin}->init;
-		@_ = ($class, _self => $self);
-		goto &{"$self->{name}::import"};
-	}
-
-	*{"${who}::AUTOLOAD"} = $self->autoload;
-	$self->preload;
-
-	# Unregister loader and worker packages so subdirs can use them again
-	delete $INC{"$self->{file}"};
-	delete $INC{"$self->{path}.pm"};
-
-	return 1;
-}
-
-sub preload {
-	my $self = shift;
-	unless ( $self->{extensions} ) {
-		$self->load_extensions(
-			"$self->{prefix}/$self->{path}", $self
-		);
-	}
-
-	my @exts = @{$self->{extensions}};
-	unless ( @exts ) {
-		my $admin = $self->{admin};
-		@exts = $admin->load_all_extensions;
-	}
-
-	my %seen;
-	foreach my $obj ( @exts ) {
-		while (my ($method, $glob) = each %{ref($obj) . '::'}) {
-			next unless $obj->can($method);
-			next if $method =~ /^_/;
-			next if $method eq uc($method);
-			$seen{$method}++;
-		}
-	}
-
-	my $who = $self->_caller;
-	foreach my $name ( sort keys %seen ) {
-		*{"${who}::$name"} = sub {
-			${"${who}::AUTOLOAD"} = "${who}::$name";
-			goto &{"${who}::AUTOLOAD"};
-		};
-	}
-}
-
-sub new {
-	my ($class, %args) = @_;
-
-	# ignore the prefix on extension modules built from top level.
-	my $base_path = Cwd::abs_path($FindBin::Bin);
-	unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
-		delete $args{prefix};
-	}
-
-	return $args{_self} if $args{_self};
-
-	$args{dispatch} ||= 'Admin';
-	$args{prefix}   ||= 'inc';
-	$args{author}   ||= ($^O eq 'VMS' ? '_author' : '.author');
-	$args{bundle}   ||= 'inc/BUNDLES';
-	$args{base}     ||= $base_path;
-	$class =~ s/^\Q$args{prefix}\E:://;
-	$args{name}     ||= $class;
-	$args{version}  ||= $class->VERSION;
-	unless ( $args{path} ) {
-		$args{path}  = $args{name};
-		$args{path}  =~ s!::!/!g;
-	}
-	$args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";
-	$args{wrote}      = 0;
-
-	bless( \%args, $class );
-}
-
-sub call {
-	my ($self, $method) = @_;
-	my $obj = $self->load($method) or return;
-        splice(@_, 0, 2, $obj);
-	goto &{$obj->can($method)};
-}
-
-sub load {
-	my ($self, $method) = @_;
-
-	$self->load_extensions(
-		"$self->{prefix}/$self->{path}", $self
-	) unless $self->{extensions};
-
-	foreach my $obj (@{$self->{extensions}}) {
-		return $obj if $obj->can($method);
-	}
-
-	my $admin = $self->{admin} or die <<"END_DIE";
-The '$method' method does not exist in the '$self->{prefix}' path!
-Please remove the '$self->{prefix}' directory and run $0 again to load it.
-END_DIE
-
-	my $obj = $admin->load($method, 1);
-	push @{$self->{extensions}}, $obj;
-
-	$obj;
-}
-
-sub load_extensions {
-	my ($self, $path, $top) = @_;
-
-	unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
-		unshift @INC, $self->{prefix};
-	}
-
-	foreach my $rv ( $self->find_extensions($path) ) {
-		my ($file, $pkg) = @{$rv};
-		next if $self->{pathnames}{$pkg};
-
-		local $@;
-		my $new = eval { require $file; $pkg->can('new') };
-		unless ( $new ) {
-			warn $@ if $@;
-			next;
-		}
-		$self->{pathnames}{$pkg} = delete $INC{$file};
-		push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
-	}
-
-	$self->{extensions} ||= [];
-}
-
-sub find_extensions {
-	my ($self, $path) = @_;
-
-	my @found;
-	File::Find::find( sub {
-		my $file = $File::Find::name;
-		return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
-		my $subpath = $1;
-		return if lc($subpath) eq lc($self->{dispatch});
-
-		$file = "$self->{path}/$subpath.pm";
-		my $pkg = "$self->{name}::$subpath";
-		$pkg =~ s!/!::!g;
-
-		# If we have a mixed-case package name, assume case has been preserved
-		# correctly.  Otherwise, root through the file to locate the case-preserved
-		# version of the package name.
-		if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
-			my $content = Module::Install::_read($subpath . '.pm');
-			my $in_pod  = 0;
-			foreach ( split //, $content ) {
-				$in_pod = 1 if /^=\w/;
-				$in_pod = 0 if /^=cut/;
-				next if ($in_pod || /^=cut/);  # skip pod text
-				next if /^\s*#/;               # and comments
-				if ( m/^\s*package\s+($pkg)\s*;/i ) {
-					$pkg = $1;
-					last;
-				}
-			}
-		}
-
-		push @found, [ $file, $pkg ];
-	}, $path ) if -d $path;
-
-	@found;
-}
-
-
-
-
-
-#####################################################################
-# Utility Functions
-
-sub _caller {
-	my $depth = 0;
-	my $call  = caller($depth);
-	while ( $call eq __PACKAGE__ ) {
-		$depth++;
-		$call = caller($depth);
-	}
-	return $call;
-}
-
-sub _read {
-	local *FH;
-	open FH, "< $_[0]" or die "open($_[0]): $!";
-	my $str = do { local $/; <FH> };
-	close FH or die "close($_[0]): $!";
-	return $str;
-}
-
-sub _write {
-	local *FH;
-	open FH, "> $_[0]" or die "open($_[0]): $!";
-	foreach ( 1 .. $#_ ) { print FH $_[$_] or die "print($_[0]): $!" }
-	close FH or die "close($_[0]): $!";
-}
-
-sub _version {
-	my $s = shift || 0;
-	   $s =~ s/^(\d+)\.?//;
-	my $l = $1 || 0;
-	my @v = map { $_ . '0' x (3 - length $_) } $s =~ /(\d{1,3})\D?/g;
-	   $l = $l . '.' . join '', @v if @v;
-	return $l + 0;
-}
-
-1;
-
-# Copyright 2008 Adam Kennedy.
+#line 1
+package Module::Install;
+
+# For any maintainers:
+# The load order for Module::Install is a bit magic.
+# It goes something like this...
+#
+# IF ( host has Module::Install installed, creating author mode ) {
+#     1. Makefile.PL calls "use inc::Module::Install"
+#     2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
+#     3. The installed version of inc::Module::Install loads
+#     4. inc::Module::Install calls "require Module::Install"
+#     5. The ./inc/ version of Module::Install loads
+# } ELSE {
+#     1. Makefile.PL calls "use inc::Module::Install"
+#     2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
+#     3. The ./inc/ version of Module::Install loads
+# }
+
+use 5.005;
+use strict 'vars';
+use Cwd        ();
+use File::Find ();
+use File::Path ();
+
+use vars qw{$VERSION $MAIN};
+BEGIN {
+	# All Module::Install core packages now require synchronised versions.
+	# This will be used to ensure we don't accidentally load old or
+	# different versions of modules.
+	# This is not enforced yet, but will be some time in the next few
+	# releases once we can make sure it won't clash with custom
+	# Module::Install extensions.
+	$VERSION = '1.06';
+
+	# Storage for the pseudo-singleton
+	$MAIN    = undef;
+
+	*inc::Module::Install::VERSION = *VERSION;
+	@inc::Module::Install::ISA     = __PACKAGE__;
+
+}
+
+sub import {
+	my $class = shift;
+	my $self  = $class->new(@_);
+	my $who   = $self->_caller;
+
+	#-------------------------------------------------------------
+	# all of the following checks should be included in import(),
+	# to allow "eval 'require Module::Install; 1' to test
+	# installation of Module::Install. (RT #51267)
+	#-------------------------------------------------------------
+
+	# Whether or not inc::Module::Install is actually loaded, the
+	# $INC{inc/Module/Install.pm} is what will still get set as long as
+	# the caller loaded module this in the documented manner.
+	# If not set, the caller may NOT have loaded the bundled version, and thus
+	# they may not have a MI version that works with the Makefile.PL. This would
+	# result in false errors or unexpected behaviour. And we don't want that.
+	my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
+	unless ( $INC{$file} ) { die <<"END_DIE" }
+
+Please invoke ${\__PACKAGE__} with:
+
+	use inc::${\__PACKAGE__};
+
+not:
+
+	use ${\__PACKAGE__};
+
+END_DIE
+
+	# This reportedly fixes a rare Win32 UTC file time issue, but
+	# as this is a non-cross-platform XS module not in the core,
+	# we shouldn't really depend on it. See RT #24194 for detail.
+	# (Also, this module only supports Perl 5.6 and above).
+	eval "use Win32::UTCFileTime" if $^O eq 'MSWin32' && $] >= 5.006;
+
+	# If the script that is loading Module::Install is from the future,
+	# then make will detect this and cause it to re-run over and over
+	# again. This is bad. Rather than taking action to touch it (which
+	# is unreliable on some platforms and requires write permissions)
+	# for now we should catch this and refuse to run.
+	if ( -f $0 ) {
+		my $s = (stat($0))[9];
+
+		# If the modification time is only slightly in the future,
+		# sleep briefly to remove the problem.
+		my $a = $s - time;
+		if ( $a > 0 and $a < 5 ) { sleep 5 }
+
+		# Too far in the future, throw an error.
+		my $t = time;
+		if ( $s > $t ) { die <<"END_DIE" }
+
+Your installer $0 has a modification time in the future ($s > $t).
+
+This is known to create infinite loops in make.
+
+Please correct this, then run $0 again.
+
+END_DIE
+	}
+
+
+	# Build.PL was formerly supported, but no longer is due to excessive
+	# difficulty in implementing every single feature twice.
+	if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" }
+
+Module::Install no longer supports Build.PL.
+
+It was impossible to maintain duel backends, and has been deprecated.
+
+Please remove all Build.PL files and only use the Makefile.PL installer.
+
+END_DIE
+
+	#-------------------------------------------------------------
+
+	# To save some more typing in Module::Install installers, every...
+	# use inc::Module::Install
+	# ...also acts as an implicit use strict.
+	$^H |= strict::bits(qw(refs subs vars));
+
+	#-------------------------------------------------------------
+
+	unless ( -f $self->{file} ) {
+		foreach my $key (keys %INC) {
+			delete $INC{$key} if $key =~ /Module\/Install/;
+		}
+
+		local $^W;
+		require "$self->{path}/$self->{dispatch}.pm";
+		File::Path::mkpath("$self->{prefix}/$self->{author}");
+		$self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
+		$self->{admin}->init;
+		@_ = ($class, _self => $self);
+		goto &{"$self->{name}::import"};
+	}
+
+	local $^W;
+	*{"${who}::AUTOLOAD"} = $self->autoload;
+	$self->preload;
+
+	# Unregister loader and worker packages so subdirs can use them again
+	delete $INC{'inc/Module/Install.pm'};
+	delete $INC{'Module/Install.pm'};
+
+	# Save to the singleton
+	$MAIN = $self;
+
+	return 1;
+}
+
+sub autoload {
+	my $self = shift;
+	my $who  = $self->_caller;
+	my $cwd  = Cwd::cwd();
+	my $sym  = "${who}::AUTOLOAD";
+	$sym->{$cwd} = sub {
+		my $pwd = Cwd::cwd();
+		if ( my $code = $sym->{$pwd} ) {
+			# Delegate back to parent dirs
+			goto &$code unless $cwd eq $pwd;
+		}
+		unless ($$sym =~ s/([^:]+)$//) {
+			# XXX: it looks like we can't retrieve the missing function
+			# via $$sym (usually $main::AUTOLOAD) in this case.
+			# I'm still wondering if we should slurp Makefile.PL to
+			# get some context or not ...
+			my ($package, $file, $line) = caller;
+			die <<"EOT";
+Unknown function is found at $file line $line.
+Execution of $file aborted due to runtime errors.
+
+If you're a contributor to a project, you may need to install
+some Module::Install extensions from CPAN (or other repository).
+If you're a user of a module, please contact the author.
+EOT
+		}
+		my $method = $1;
+		if ( uc($method) eq $method ) {
+			# Do nothing
+			return;
+		} elsif ( $method =~ /^_/ and $self->can($method) ) {
+			# Dispatch to the root M:I class
+			return $self->$method(@_);
+		}
+
+		# Dispatch to the appropriate plugin
+		unshift @_, ( $self, $1 );
+		goto &{$self->can('call')};
+	};
+}
+
+sub preload {
+	my $self = shift;
+	unless ( $self->{extensions} ) {
+		$self->load_extensions(
+			"$self->{prefix}/$self->{path}", $self
+		);
+	}
+
+	my @exts = @{$self->{extensions}};
+	unless ( @exts ) {
+		@exts = $self->{admin}->load_all_extensions;
+	}
+
+	my %seen;
+	foreach my $obj ( @exts ) {
+		while (my ($method, $glob) = each %{ref($obj) . '::'}) {
+			next unless $obj->can($method);
+			next if $method =~ /^_/;
+			next if $method eq uc($method);
+			$seen{$method}++;
+		}
+	}
+
+	my $who = $self->_caller;
+	foreach my $name ( sort keys %seen ) {
+		local $^W;
+		*{"${who}::$name"} = sub {
+			${"${who}::AUTOLOAD"} = "${who}::$name";
+			goto &{"${who}::AUTOLOAD"};
+		};
+	}
+}
+
+sub new {
+	my ($class, %args) = @_;
+
+	delete $INC{'FindBin.pm'};
+	{
+		# to suppress the redefine warning
+		local $SIG{__WARN__} = sub {};
+		require FindBin;
+	}
+
+	# ignore the prefix on extension modules built from top level.
+	my $base_path = Cwd::abs_path($FindBin::Bin);
+	unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
+		delete $args{prefix};
+	}
+	return $args{_self} if $args{_self};
+
+	$args{dispatch} ||= 'Admin';
+	$args{prefix}   ||= 'inc';
+	$args{author}   ||= ($^O eq 'VMS' ? '_author' : '.author');
+	$args{bundle}   ||= 'inc/BUNDLES';
+	$args{base}     ||= $base_path;
+	$class =~ s/^\Q$args{prefix}\E:://;
+	$args{name}     ||= $class;
+	$args{version}  ||= $class->VERSION;
+	unless ( $args{path} ) {
+		$args{path}  = $args{name};
+		$args{path}  =~ s!::!/!g;
+	}
+	$args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";
+	$args{wrote}      = 0;
+
+	bless( \%args, $class );
+}
+
+sub call {
+	my ($self, $method) = @_;
+	my $obj = $self->load($method) or return;
+        splice(@_, 0, 2, $obj);
+	goto &{$obj->can($method)};
+}
+
+sub load {
+	my ($self, $method) = @_;
+
+	$self->load_extensions(
+		"$self->{prefix}/$self->{path}", $self
+	) unless $self->{extensions};
+
+	foreach my $obj (@{$self->{extensions}}) {
+		return $obj if $obj->can($method);
+	}
+
+	my $admin = $self->{admin} or die <<"END_DIE";
+The '$method' method does not exist in the '$self->{prefix}' path!
+Please remove the '$self->{prefix}' directory and run $0 again to load it.
+END_DIE
+
+	my $obj = $admin->load($method, 1);
+	push @{$self->{extensions}}, $obj;
+
+	$obj;
+}
+
+sub load_extensions {
+	my ($self, $path, $top) = @_;
+
+	my $should_reload = 0;
+	unless ( grep { ! ref $_ and lc $_ eq lc $self->{prefix} } @INC ) {
+		unshift @INC, $self->{prefix};
+		$should_reload = 1;
+	}
+
+	foreach my $rv ( $self->find_extensions($path) ) {
+		my ($file, $pkg) = @{$rv};
+		next if $self->{pathnames}{$pkg};
+
+		local $@;
+		my $new = eval { local $^W; require $file; $pkg->can('new') };
+		unless ( $new ) {
+			warn $@ if $@;
+			next;
+		}
+		$self->{pathnames}{$pkg} =
+			$should_reload ? delete $INC{$file} : $INC{$file};
+		push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
+	}
+
+	$self->{extensions} ||= [];
+}
+
+sub find_extensions {
+	my ($self, $path) = @_;
+
+	my @found;
+	File::Find::find( sub {
+		my $file = $File::Find::name;
+		return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
+		my $subpath = $1;
+		return if lc($subpath) eq lc($self->{dispatch});
+
+		$file = "$self->{path}/$subpath.pm";
+		my $pkg = "$self->{name}::$subpath";
+		$pkg =~ s!/!::!g;
+
+		# If we have a mixed-case package name, assume case has been preserved
+		# correctly.  Otherwise, root through the file to locate the case-preserved
+		# version of the package name.
+		if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
+			my $content = Module::Install::_read($subpath . '.pm');
+			my $in_pod  = 0;
+			foreach ( split //, $content ) {
+				$in_pod = 1 if /^=\w/;
+				$in_pod = 0 if /^=cut/;
+				next if ($in_pod || /^=cut/);  # skip pod text
+				next if /^\s*#/;               # and comments
+				if ( m/^\s*package\s+($pkg)\s*;/i ) {
+					$pkg = $1;
+					last;
+				}
+			}
+		}
+
+		push @found, [ $file, $pkg ];
+	}, $path ) if -d $path;
+
+	@found;
+}
+
+
+
+
+
+#####################################################################
+# Common Utility Functions
+
+sub _caller {
+	my $depth = 0;
+	my $call  = caller($depth);
+	while ( $call eq __PACKAGE__ ) {
+		$depth++;
+		$call = caller($depth);
+	}
+	return $call;
+}
+
+# Done in evals to avoid confusing Perl::MinimumVersion
+eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
+sub _read {
+	local *FH;
+	open( FH, '<', $_[0] ) or die "open($_[0]): $!";
+	my $string = do { local $/; <FH> };
+	close FH or die "close($_[0]): $!";
+	return $string;
+}
+END_NEW
+sub _read {
+	local *FH;
+	open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
+	my $string = do { local $/; <FH> };
+	close FH or die "close($_[0]): $!";
+	return $string;
+}
+END_OLD
+
+sub _readperl {
+	my $string = Module::Install::_read($_[0]);
+	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
+	$string =~ s/(\n)\n*__(?:DATA|END)__\b.*\z/$1/s;
+	$string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg;
+	return $string;
+}
+
+sub _readpod {
+	my $string = Module::Install::_read($_[0]);
+	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
+	return $string if $_[0] =~ /\.pod\z/;
+	$string =~ s/(^|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+|\z)/$1$2/sg;
+	$string =~ s/\n*=pod\b[^\n]*\n+/\n\n/sg;
+	$string =~ s/\n*=cut\b[^\n]*\n+/\n\n/sg;
+	$string =~ s/^\n+//s;
+	return $string;
+}
+
+# Done in evals to avoid confusing Perl::MinimumVersion
+eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
+sub _write {
+	local *FH;
+	open( FH, '>', $_[0] ) or die "open($_[0]): $!";
+	foreach ( 1 .. $#_ ) {
+		print FH $_[$_] or die "print($_[0]): $!";
+	}
+	close FH or die "close($_[0]): $!";
+}
+END_NEW
+sub _write {
+	local *FH;
+	open( FH, "> $_[0]"  ) or die "open($_[0]): $!";
+	foreach ( 1 .. $#_ ) {
+		print FH $_[$_] or die "print($_[0]): $!";
+	}
+	close FH or die "close($_[0]): $!";
+}
+END_OLD
+
+# _version is for processing module versions (eg, 1.03_05) not
+# Perl versions (eg, 5.8.1).
+sub _version ($) {
+	my $s = shift || 0;
+	my $d =()= $s =~ /(\.)/g;
+	if ( $d >= 2 ) {
+		# Normalise multipart versions
+		$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
+	}
+	$s =~ s/^(\d+)\.?//;
+	my $l = $1 || 0;
+	my @v = map {
+		$_ . '0' x (3 - length $_)
+	} $s =~ /(\d{1,3})\D?/g;
+	$l = $l . '.' . join '', @v if @v;
+	return $l + 0;
+}
+
+sub _cmp ($$) {
+	_version($_[1]) <=> _version($_[2]);
+}
+
+# Cloned from Params::Util::_CLASS
+sub _CLASS ($) {
+	(
+		defined $_[0]
+		and
+		! ref $_[0]
+		and
+		$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
+	) ? $_[0] : undef;
+}
+
+1;
+
+# Copyright 2008 - 2012 Adam Kennedy.

@@ -1,22 +1,21 @@
 
-# $rcs = ' $Id: Charset.pm,v 1.394 2008/07/12 03:29:09 Martin Exp $ ' ;
+# $rcs = ' $Id: Charset.pm,v 1.412 2013/10/05 15:12:38 Martin Exp $ ' ;
 
 package I18N::Charset;
 
 use strict;
 use warnings;
 
-require 5.002;
+require 5.005;
 
-use Exporter;
 use base 'Exporter';
+use blib;
 use Carp;
-use IO::String;
 
 =head1 NAME
 
 I18N::Charset - IANA Character Set Registry names and Unicode::MapUTF8
-(et al.)  conversion scheme names
+(et al.) conversion scheme names
 
 =head1 SYNOPSIS
 
@@ -46,7 +45,7 @@ I18N::Charset - IANA Character Set Registry names and Unicode::MapUTF8
 The C<I18N::Charset> module provides access to the IANA Character Set
 Registry names for identifying character encoding schemes.  It also
 provides a mapping to the character set names used by the
-Unicode::Map8 and Unicode::Map modules.
+Unicode::Map and Unicode::Map8 modules.
 
 So, for example, if you get an HTML document with a META CHARSET="..."
 tag, you can fairly quickly determine what Unicode::MapXXX module can
@@ -69,7 +68,7 @@ functions will always return undef.
 #	Public Global Variables
 #-----------------------------------------------------------------------
 our
-$VERSION = do { my @r = (q$Revision: 1.394 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 1.412 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
 our @EXPORT = qw( iana_charset_name
 map8_charset_name
 umap_charset_name
@@ -114,6 +113,7 @@ my %MIBtoENCO;
 
 use constant DEBUG => 0;
 use constant DEBUG_ENCO => 0;
+use constant DEBUG_LIBI => 0;
 
 =head1 CONVERSION ROUTINES
 
@@ -151,11 +151,11 @@ sub iana_charset_name
   return undef unless $code ne '';
   # $iDebug = ($code =~ m!sjis!);
   # print STDERR " + iana_charset_name($code)..." if $iDebug;
-  my $mib = &_short_to_mib($code);
+  my $mib = _short_to_mib($code);
   return undef unless defined $mib;
   # print STDERR " + mib is ($mib)..." if $iDebug;
   # Make sure this is really a IANA mib:
-  return undef if &_is_dummy($mib);
+  return undef if _is_dummy($mib);
   # print STDERR " + is really iana..." if $iDebug;
   return $hsLongnameOfMIB{$mib};
   } # iana_charset_name
@@ -164,8 +164,8 @@ sub iana_charset_name
 sub _try_list
   {
   my $code = shift;
-  my @asTry = ($code, &_strip($code));
-  push @asTry, &_strip($code) if $code =~ s!\A(x-)+!!;  # try without leading x-
+  my @asTry = ($code, _strip($code));
+  push @asTry, _strip($code) if $code =~ s!\A(x-)+!!;  # try without leading x-
   return @asTry;
   } # _try_list
 
@@ -176,7 +176,7 @@ sub _short_to_mib
   # print STDERR " + _short_to_mib($code)..." if DEBUG;
   my $answer = undef;
  TRY_SHORT:
-  foreach my $sTry (&_try_list($code))
+  foreach my $sTry (_try_list($code))
     {
     my $iMIB = $hsMIBofShortname{$sTry} || 'undef';
     # print STDERR "try($sTry)...$iMIB..." if DEBUG;
@@ -196,7 +196,7 @@ sub _short_to_long
   local $^W = 0;
   my $s = shift;
   # print STDERR " + _short_to_long($s)..." if DEBUG;
-  return $hsLongnameOfMIB{&_short_to_mib($s)};
+  return $hsLongnameOfMIB{_short_to_mib($s)};
   } # _short_to_long
 
 
@@ -219,11 +219,11 @@ sub mime_charset_name
   return undef unless defined $code;
   return undef unless $code ne '';
   # print STDERR " + mime_charset_name($code)..." if DEBUG;
-  my $mib = &_short_to_mib($code);
+  my $mib = _short_to_mib($code);
   return undef unless defined $mib;
   # print STDERR " + mib is ($mib)..." if DEBUG;
   # Make sure this is really an IANA mib:
-  return undef if &_is_dummy($mib);
+  return undef if _is_dummy($mib);
   # print STDERR " + is really iana..." if DEBUG;
   return $hsMIMEofMIB{$mib};
   } # mime_charset_name
@@ -260,7 +260,7 @@ sub _maybe_load_enco # PRIVATE
       {
       # First, see if this already has an IANA mapping:
       my $mib;
-      my $sIana = &iana_charset_name($s);
+      my $sIana = iana_charset_name($s);
       if (!defined $sIana)
         {
         # Create a dummy mib:
@@ -269,14 +269,14 @@ sub _maybe_load_enco # PRIVATE
         } # if
       else
         {
-        $mib = &charset_name_to_mib($sIana);
+        $mib = charset_name_to_mib($sIana);
         $iReal++;
         }
       # At this point we have a mib for this Encode entry.
       $MIBtoENCO{$mib} = $s;
       DEBUG_ENCO && print STDERR " +   mib for enco ==$s== is $mib\n";
-      $hsMIBofShortname{&_strip($s)} = $mib;
-      DEBUG_ENCO && print STDERR " +   assign enco =$s==>$mib\n" if &_is_dummy($mib);
+      $hsMIBofShortname{_strip($s)} = $mib;
+      DEBUG_ENCO && print STDERR " +   assign enco =$s==>$mib\n" if _is_dummy($mib);
       } # foreach ENCODING
     if (DEBUG_ENCO)
       {
@@ -286,7 +286,7 @@ sub _maybe_load_enco # PRIVATE
       print STDERR " +   $iReal real mibs re-used.\n";
       } # if
     $iEncoLoaded = 1;
-    &add_enco_alias('Windows-31J', 'cp932');
+    add_enco_alias('Windows-31J', 'cp932');
     } # if
   else
     {
@@ -296,7 +296,7 @@ sub _maybe_load_enco # PRIVATE
 
 sub _mib_to_enco # PRIVATE
   {
-  &_maybe_load_enco();
+  _maybe_load_enco();
   return $MIBtoENCO{shift()};
   } # _mib_to_enco
 
@@ -305,13 +305,13 @@ sub enco_charset_name
   my $code = shift;
   return undef unless defined $code;
   return undef unless $code ne '';
-  &_maybe_load_enco();
+  _maybe_load_enco();
   my $iDebug = 0; # ($code =~ m!johab!i);
   print STDERR " + enco_charset_name($code)..." if ($iDebug || DEBUG_ENCO);
-  my $mib = &_short_to_mib($code);
+  my $mib = _short_to_mib($code);
   return undef unless defined $mib;
   print STDERR " + mib is ($mib)..." if ($iDebug || DEBUG_ENCO);
-  my $ret = &_mib_to_enco($mib);
+  my $ret = _mib_to_enco($mib);
   print STDERR " + enco is ($ret)..." if ($iDebug || DEBUG_ENCO);
   return $ret;
   } # enco_charset_name
@@ -340,11 +340,11 @@ sub _maybe_load_libi # PRIVATE
   if (ref $oAILI)
     {
     my $iLibiVersion = $oAILI->version;
-    # print STDERR " + libiconv version is $iLibiVersion\n";
-    if ($oAILI->installed && (1.8 <= $iLibiVersion))
+    DEBUG_LIBI && warn " DDD libiconv version is $iLibiVersion\n";
+    if ($oAILI->installed && (1.08 <= $iLibiVersion))
       {
       my $sCmd = $oAILI->bin_dir . '/iconv -l';
-      # print STDERR " + iconv cmdline is $sCmd\n";
+      DEBUG_LIBI && warn " DDD iconv cmdline is $sCmd\n";
       my @asIconv = split(/\n/, `$sCmd`);
  ICONV_LINE:
       foreach my $sLine (@asIconv)
@@ -356,7 +356,7 @@ sub _maybe_load_libi # PRIVATE
  FIND_IANA:
         foreach my $sWord (@asWord)
           {
-          last FIND_IANA if ($sIana = &iana_charset_name($sWord));
+          last FIND_IANA if ($sIana = iana_charset_name($sWord));
           } # foreach FIND_IANA
         if (!defined $sIana)
           {
@@ -365,15 +365,15 @@ sub _maybe_load_libi # PRIVATE
           } # if
         else
           {
-          $mib = &charset_name_to_mib($sIana);
+          $mib = charset_name_to_mib($sIana);
           }
         # At this point we have a mib for this iconv entry.  Assign them all:
  ADD_LIBI:
         foreach my $sWord (reverse @asWord)
           {
           $MIBtoLIBI{$mib} = $sWord;
-          # print STDERR " +   mib for libi ==$sWord== is $mib\n";
-          $hsMIBofShortname{&_strip($sWord)} = $mib;
+          DEBUG_LIBI && warn " +   mib for libi ==$sWord== is $mib\n";
+          $hsMIBofShortname{_strip($sWord)} = $mib;
           } # foreach ADD_LIBI
         } # foreach ICONV_LINE
       } # if
@@ -383,7 +383,7 @@ sub _maybe_load_libi # PRIVATE
 
 sub _mib_to_libi # PRIVATE
   {
-  &_maybe_load_libi();
+  _maybe_load_libi();
   return $MIBtoLIBI{shift()};
   } # _mib_to_libi
 
@@ -394,10 +394,10 @@ sub libi_charset_name
   return undef unless $code ne '';
   # my $iDebug = 1; # ($code =~ m!johab!i);
   # print STDERR " + libi_charset_name($code)..." if $iDebug;
-  my $mib = &_short_to_mib($code);
+  my $mib = _short_to_mib($code);
   return undef unless defined $mib;
   # print STDERR " + mib is ($mib)..." if $iDebug;
-  my $ret = &_mib_to_libi($mib);
+  my $ret = _mib_to_libi($mib);
   # print STDERR " + libi is ($ret)..." if $iDebug;
   return $ret;
   } # libi_charset_name
@@ -485,9 +485,9 @@ sub map8_charset_name
   return undef unless $code ne '';
   # $iDebug = 0 && ($code =~ m!037!);
   # print STDERR " + map8_charset_name($code)..." if $iDebug;
-  $code = &_strip($code);
+  $code = _strip($code);
   # print STDERR "$code..." if $iDebug;
-  my $iMIB = &_short_to_mib($code) || 'undef';
+  my $iMIB = _short_to_mib($code) || 'undef';
   # print STDERR "$iMIB..." if $iDebug;
   if ($iMIB ne 'undef')
     {
@@ -520,7 +520,7 @@ sub umap_charset_name
   # $iDebug = ($code =~ m!apple!i);
   # print STDERR "\n + MIBtoUMAP{dummymib029} == $MIBtoUMAP{$sDummy .'029'}\n\n" if $iDebug;
   # print STDERR " + umap_charset_name($code)..." if $iDebug;
-  my $iMIB = &_short_to_mib(&_strip($code)) || 'undef';
+  my $iMIB = _short_to_mib(_strip($code)) || 'undef';
   # print STDERR "$iMIB..." if $iDebug;
   if ($iMIB ne 'undef')
     {
@@ -554,7 +554,7 @@ sub umu8_charset_name
   return undef unless $code ne '';
   # $iDebug = ($code =~ m!u!);
   # print STDERR " + umu8_charset_name($code)..." if $iDebug;
-  my $iMIB = &_short_to_mib($code) || 'undef';
+  my $iMIB = _short_to_mib($code) || 'undef';
   # print STDERR "$iMIB..." if $iDebug;
   if ($iMIB ne 'undef')
     {
@@ -625,15 +625,15 @@ sub add_iana_alias
   {
   my ($sAlias, $sReal) = @_;
   # print STDERR " + add_iana_alias($sAlias, $sReal)\n";
-  my $sName = &iana_charset_name($sReal);
+  my $sName = iana_charset_name($sReal);
   if (not defined($sName))
     {
     carp qq{attempt to alias "$sAlias" to unknown IANA charset "$sReal"};
     return undef;
     } # if
-  my $mib = &_short_to_mib(&_strip($sName));
+  my $mib = _short_to_mib(_strip($sName));
   # print STDERR " --> $sName --> $mib\n";
-  $hsMIBofShortname{&_strip($sAlias)} = $mib;
+  $hsMIBofShortname{_strip($sAlias)} = $mib;
   return $sName;
   } # add_iana_alias
 
@@ -678,9 +678,9 @@ aliases for 'EBCDIC-CA-FR'.
 sub add_map8_alias
   {
   my ($sAlias, $sReal) = @_;
-  my $sName = &map8_charset_name($sReal);
-  my $sShort = &_strip($sAlias);
-  my $sShortName = &_strip($sName);
+  my $sName = map8_charset_name($sReal);
+  my $sShort = _strip($sAlias);
+  my $sShortName = _strip($sName);
   if (not defined($sName))
     {
     carp qq{attempt to alias "$sAlias" to unknown Map8 charset "$sReal"};
@@ -705,9 +705,9 @@ operates on Unicode::Map encoding tables.
 sub add_umap_alias
   {
   my ($sAlias, $sReal) = @_;
-  my $sName = &umap_charset_name($sReal);
-  my $sShort = &_strip($sAlias);
-  my $sShortName = &_strip($sName);
+  my $sName = umap_charset_name($sReal);
+  my $sShort = _strip($sAlias);
+  my $sShortName = _strip($sName);
   if (not defined($sName))
     {
     carp qq{attempt to alias "$sAlias" to unknown U::Map charset "$sReal"};
@@ -751,15 +751,15 @@ sub add_libi_alias
   {
   my ($sAlias, $sReal) = @_;
   # print STDERR " + add_libi_alias($sAlias,$sReal)...";
-  my $sName = &libi_charset_name($sReal);
+  my $sName = libi_charset_name($sReal);
   if (not defined($sName))
     {
     carp qq{attempt to alias "$sAlias" to unknown iconv charset "$sReal"};
     return undef;
     } # if
-  my $mib = &_short_to_mib(&_strip($sName));
+  my $mib = _short_to_mib(_strip($sName));
   # print STDERR "sName=$sName...mib=$mib\n";
-  $hsMIBofShortname{&_strip($sAlias)} = $mib;
+  $hsMIBofShortname{_strip($sAlias)} = $mib;
   return $sName;
   } # add_libi_alias
 
@@ -795,15 +795,15 @@ sub add_enco_alias
   my ($sAlias, $sReal) = @_;
   my $iDebug = 0;
   print STDERR " + add_enco_alias($sAlias,$sReal)..." if ($iDebug || DEBUG_ENCO);
-  my $sName = &enco_charset_name($sReal);
+  my $sName = enco_charset_name($sReal);
   if (not defined($sName))
     {
     carp qq{attempt to alias "$sAlias" to unknown Encode charset "$sReal"};
     return undef;
     } # if
-  my $mib = &_short_to_mib(&_strip($sName));
+  my $mib = _short_to_mib(_strip($sName));
   print STDERR "sName=$sName...mib=$mib\n" if ($iDebug || DEBUG_ENCO);
-  $hsMIBofShortname{&_strip($sAlias)} = $mib;
+  $hsMIBofShortname{_strip($sAlias)} = $mib;
   return $sName;
   } # add_enco_alias
 
@@ -865,7 +865,7 @@ A wrapper around all three of these character set conversion distributions.
 
 =head1 AUTHOR
 
-Martin Thurn, C<mthurn@cpan.org>, L<http://tinyurl.com/nn67z>.
+Martin 'Kingpin' Thurn, C<mthurn at cpan.org>, L<http://tinyurl.com/nn67z>.
 
 =head1 LICENSE
 
@@ -895,68 +895,47 @@ INITIALIZATION:
   # that is not compatible with perlapp.  NOTE that storing the IANA
   # charset data as a file separate from this module code will not
   # work with perlapp either!
-  my $io = new IO::String(_init_data());
-  local $/ = "\n";
- DATA:
-  while (my $sLine = <$io>)
+  my $s = _init_data();
+  my $iRecord = 0;
+ RECORD:
+  while ($s =~ m/<record(.+?)<\/record>/gs)
     {
-    unless ($sLine =~ m!\S!)
+    my $sRecord = $1;
+    $iRecord++;
+    if ($sRecord !~ m/<name>(.+?)<\/name>/)
       {
-      # Blank line separates entries.
-      ($sName, $iMIB, $sAlias, $mimename) = ('', '', '', 0);
-      next DATA;
-      } # unless
-    # print STDERR " + read DATA $_" if $iDebug;
-
-    # If this line indicates the MIME name, remember this fact; but if
-    # it doesn't, keep the previous setting (in case the MIME name is
-    # specified before we find the MIB of this entry):
-    $mimename = 1 if ($sLine =~ m/\(preferred\s*MIME\s*name\)/);
-    if ($sLine =~ m/^Name:\s*(\S+)/)
+      warn " WWW found record with no name.\n";
+      next RECORD;
+      } # if
+    my $sName = $1;
+    if ($sRecord !~ m/<value>(\d+)<\/value>/)
       {
-      $sName = $1;
-      # $iDebug = ($sName =~ m!1252!i);
-      print STDERR " +   read Name: $sName\n" if $iDebug;
-      } # if Name
-    elsif ($sLine =~ m!^MIBenum:\s*(\d+)!)
+      warn " WWW found record '$sName' with no value.\n";
+      next RECORD;
+      } # if
+    my $iMIB = $1;
+    if ($sRecord =~ m/<preferred_alias>(.+?)<\/preferred_alias>/)
       {
-      $iMIB = $1;
-      # $iDebug = ($iMIB =~ m!225[23]!);
-      print STDERR " +   found mib: $iMIB, long = $sName\n" if $iDebug;
-      $hsLongnameOfMIB{$iMIB} = $sName;
-      $hsMIBofLongname{$sName} = $iMIB;
-      $hsMIBofShortname{&_strip($sName)} = $iMIB;
-      if ($mimename)
-        {
-        print STDERR " +   found mime: mib=$iMIB, mime=$sName\n" if $iDebug;
-	$hsMIMEofMIB{$iMIB} = $sName;
-        # We've got the MIME name for this entry, don't look for more
-        # until next entry:
-        $mimename = 0;
-        } # preferred MIME name
-      } # MIBenum line
-    elsif ($sLine =~ m/^Alias:\s*(\S+)/)
+      $hsMIMEofMIB{$iMIB} = $1;
+      $hsMIBofShortname{_strip($1)} = $iMIB;
+      }
+    else
       {
-      $sAlias = $1;
-      if ($sAlias !~ m!None!i)
-        {
-        print STDERR " +   map Alias ($sAlias) to mib $iMIB\n" if $iDebug;
-        $hsMIBofShortname{&_strip($sAlias)} = $iMIB;
-	if ($mimename)
-	  {
-          print STDERR " +   found mime: mib=$iMIB, mime=$sAlias\n" if $iDebug;
-	  $hsMIMEofMIB{$iMIB} = $sAlias;
-          # We've got the MIME name for this entry, don't look for
-          # more until next entry:
-          $mimename = 0;
-	  } # preferred MIME name
-        } # if not "None"
-      } # if Alias
-    } # while <$io>
-
-  # last;  # for debugging
-
-  # Not that we have all the standard definitions, process the special
+      # warn " WWW found record '$sName' with no preferred alias.\n";
+      } # if
+    my $sMime = $1;
+    $hsLongnameOfMIB{$iMIB} = $sName;
+    $hsMIBofLongname{$sName} = $iMIB;
+    # warn " DDD '$sName' ==> $iMIB\n";
+    $hsMIBofShortname{_strip($sName)} = $iMIB;
+ ALIAS:
+    while ($sRecord =~ m/<alias>(.+?)<\/alias>/g)
+      {
+      my $sAlias = $1;
+      $hsMIBofShortname{_strip($sAlias)} = $iMIB;
+      } # while ALIAS
+    } # while RECORD
+  # Now that we have all the standard definitions, process the special
   # === directives:
   my @asEqualLines = split(/\n/, _init_data_extra());
   chomp @asEqualLines;
@@ -966,23 +945,22 @@ INITIALIZATION:
     next if ($sLine =~ m!\A#!);
     # print STDERR " +   equal-sign line $sLine...\n";
     my @as = split(/\ ===\ /, $sLine);
-    next unless defined $as[0];
-    next unless $as[0] ne '';
-    next unless defined $as[1];
-    next unless $as[1] ne '';
-    my $iMIB = $hsMIBofShortname{&_strip($as[0])} || '';
-    unless ($iMIB ne '')
+    my $sName = shift @as || q{};
+    next unless $sName ne '';
+    my $iMIB = $hsMIBofShortname{_strip($sName)} || 0;
+    if (! $iMIB)
       {
-      print STDERR " --- can not find IANA entry for equal-sign directive $as[0]\n";
+      print STDERR " EEE can not find IANA entry for equal-sign directive $sName\n";
       next EQUAL_LINE;
       } # unless
+ EQUAL_ITEM:
     foreach my $s (@as)
       {
-      my $sStrip = &_strip($s);
+      my $sStrip = _strip($s);
       # print STDERR " +     $sStrip --> $iMIB\n";
       $hsMIBofShortname{$sStrip} = $iMIB;
-      } # foreach
-    } # foreach
+      } # foreach EQUAL_ITEM
+    } # foreach EQUAL_LINE
 
   # last;  # for debugging
 
@@ -1008,7 +986,7 @@ INITIALIZATION:
         # Try to find the official IANA name for this encoding:
         push @asMap8Debug, " DDD   looking for $sLong in iana table...\n";
         my $sFound = '';
-        if (defined (my $sTemp = &iana_charset_name($sLong)))
+        if (defined (my $sTemp = iana_charset_name($sLong)))
           {
           $sFound = $sTemp;
           } # if
@@ -1027,7 +1005,7 @@ INITIALIZATION:
         # Make this IANA mib map to this Map8 name:
         push @asMap8Debug, " DDD      map $iMIB to $sLong in MIBtoMAP8...\n";
         $MIBtoMAP8{$iMIB} = $sLong;
-        my $s = &_strip($sLong);
+        my $s = _strip($sLong);
         push @asMap8Debug, " DDD      map $s to $iMIB in hsMIBofShortname...\n";
         $hsMIBofShortname{$s} = $iMIB;
         } # foreach
@@ -1037,21 +1015,21 @@ INITIALIZATION:
     while (my ($alias, $charset) = each %Unicode::Map8::ALIASES)
       {
       my $iMIB = charset_name_to_mib($charset); # qqq
-      my $s = &_strip($alias);
+      my $s = _strip($alias);
       push @asMap8Debug, " DDD      map $s to $iMIB in hsMIBofShortname...\n";
       $hsMIBofShortname{$s} = $iMIB;
       } # while
     # If there are special cases for Unicode::Map8, add them here:
-    &add_map8_alias('ISO_8859-13:1998', 'ISO_8859-13');
-    &add_map8_alias('L 7', 'ISO_8859-13');
-    &add_map8_alias('Latin 7', 'ISO_8859-13');
-    &add_map8_alias('ISO_8859-15:1998', 'ISO_8859-15');
-    &add_map8_alias('L 0', 'ISO_8859-15');
-    &add_map8_alias('Latin 0', 'ISO_8859-15');
-    &add_map8_alias('L 9', 'ISO_8859-15');
-    &add_map8_alias('Latin 9', 'ISO_8859-15');
-    &add_map8_alias('ISO-8859-1-Windows-3.1-Latin-1', 'cp1252');
-    &add_map8_alias('csWindows31Latin1', 'cp1252');
+    add_map8_alias('ISO_8859-13:1998', 'ISO_8859-13');
+    add_map8_alias('L 7', 'ISO_8859-13');
+    add_map8_alias('Latin 7', 'ISO_8859-13');
+    add_map8_alias('ISO_8859-15:1998', 'ISO_8859-15');
+    add_map8_alias('L 0', 'ISO_8859-15');
+    add_map8_alias('Latin 0', 'ISO_8859-15');
+    add_map8_alias('L 9', 'ISO_8859-15');
+    add_map8_alias('Latin 9', 'ISO_8859-15');
+    add_map8_alias('ISO-8859-1-Windows-3.1-Latin-1', 'cp1252');
+    add_map8_alias('csWindows31Latin1', 'cp1252');
     # Above aliases were described in RT#18802
     push @asMap8Debug, "done.\n";
     print STDERR @asMap8Debug if $iDebug;
@@ -1096,7 +1074,7 @@ INITIALIZATION:
           foreach my $sAlias ($sName, @asAlias)
             {
             print STDERR " +     try alias $sAlias\n" if $iDebug;
-            my $iMIBtry = &_short_to_mib(&_strip($sAlias));
+            my $iMIBtry = _short_to_mib(_strip($sAlias));
             if ($iMIBtry)
               {
               print STDERR " +       matched\n" if $iDebug;
@@ -1116,11 +1094,11 @@ INITIALIZATION:
         print STDERR " +   UMAP mib is $iMIB\n" if $iDebug;
         $MIBtoUMAP{$iMIB} = $sName;
         $hsMIBofLongname{$sName} ||= $iMIB;
-        $hsMIBofShortname{&_strip($sName)} ||= $iMIB;
+        $hsMIBofShortname{_strip($sName)} ||= $iMIB;
         foreach my $sAlias (@asAlias)
           {
           print STDERR " +   UMAP alias $sAlias\n" if $iDebug;
-          $hsMIBofShortname{&_strip($sAlias)} = $iMIB;
+          $hsMIBofShortname{_strip($sAlias)} = $iMIB;
           } # foreach $sAlias
         } # foreach UMAP_ENTRY
       close MAPS;
@@ -1131,7 +1109,7 @@ INITIALIZATION:
       carp " --- couldn't open $sMapFile for read" if $iDebug;
       }
     # If there are special cases for Unicode::Map, add them here:
-    # &add_umap_alias("new-name", "existing-name");
+    # add_umap_alias("new-name", "existing-name");
     print STDERR "done.\n" if $iDebug;
     } # if Unicode::Map installed
 
@@ -1143,7 +1121,7 @@ INITIALIZATION:
     print STDERR " + found Unicode::MapUTF8 $Unicode::MapUTF8::VERSION installed, will build tables...\n" if $iDebug;
     my @as;
     # Wrap this in an eval to avoid compiler warning(?):
-    eval { @as = &Unicode::MapUTF8::utf8_supported_charset() };
+    eval { @as = Unicode::MapUTF8::utf8_supported_charset() };
 UMU8_NAME:
     foreach my $sName (@as)
       {
@@ -1175,7 +1153,7 @@ UMU8_NAME:
       print STDERR " +   UmapUTF8 entry ==$sName== has no entries at all\n" if $iDebug;
       } # foreach
     # If there are special cases for Unicode::MapUTF8, add them here:
-    # &add_umap_alias("new-name", "existing-name");
+    # add_umap_alias("new-name", "existing-name");
     print STDERR "done.\n" if $iDebug;
     } # if Unicode::MapUTF8 installed
 
@@ -1188,7 +1166,7 @@ UMU8_NAME:
   foreach my $sIANA (sort values %hsLongnameOfMIB)
     {
     next if $hiTried{$sIANA};
-    print "$sIANA\n" unless defined &map8_charset_name($sIANA);
+    print "$sIANA\n" unless defined map8_charset_name($sIANA);
     $hiTried{$sIANA}++;
     } # foreach
 
@@ -1198,7 +1176,7 @@ UMU8_NAME:
   print STDERR " + after init, iana_charset_name returns:\n";
   foreach my $key (qw(cp1251 windows-1251 WinCyrillic sjis x-sjis Shift_JIS ASCII US-ASCII us-ascii iso-2022-jp iso-8859-1 Unicode-2-0-utf-8 EUC-KR big5 x-x-big5))
     {
-    print STDERR " +   $key => ", &iana_charset_name($key) || 'undef', "\n";
+    print STDERR " +   $key => ", iana_charset_name($key) || 'undef', "\n";
     } # foreach
 
   # exit 88;
@@ -1206,18 +1184,18 @@ UMU8_NAME:
   print STDERR " + after init, map8_charset_name() returns:\n";
   foreach my $key (qw(cp1251 windows-1251 WinCyrillic sjis x-sjis Shift_JIS ASCII US-ASCII us-ascii iso-2022-jp iso-8859-1 Unicode-2-0-utf-8 EUC-KR big5 x-x-big5))
     {
-    print STDERR " +   $key => ", &map8_charset_name($key) || 'undef', "\n";
+    print STDERR " +   $key => ", map8_charset_name($key) || 'undef', "\n";
     } # foreach
 
   last;
 
   # debugging: huge dump:
-  # &_dump_hash('hsLongnameOfMIB', \%hsLongnameOfMIB);
-  # &_dump_hash('hsMIBofLongname', \%hsMIBofLongname);
-  # &_dump_hash('hsMIBofShortname', \%hsMIBofShortname);
+  # _dump_hash('hsLongnameOfMIB', \%hsLongnameOfMIB);
+  # _dump_hash('hsMIBofLongname', \%hsMIBofLongname);
+  # _dump_hash('hsMIBofShortname', \%hsMIBofShortname);
   foreach (keys %hsMIBofShortname)
     {
-    print STDERR " + _short_to_long($_) == ", &_short_to_long($_) || 'undef', "\n";
+    print STDERR " + _short_to_long($_) == ", _short_to_long($_) || 'undef', "\n";
     } # foreach
 
   } # end of INITIALIZATION block
@@ -1319,14 +1297,18 @@ sub _init_data
   {
   # This big piece of data is the original document from
   # http://www.iana.org/assignments/character-sets
-  return <<'EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE';
-
-===================================================================
-CHARACTER SETS
-
-(last updated 2007-05-14)
-
-These are the official names for character sets that may be used in
+  return <<'EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE';
+<?xml version='1.0' encoding='UTF-8'?>
+<?xml-stylesheet type="text/xsl" href="character-sets.xsl"?>
+<?oxygen RNGSchema="character-sets.rng" type="xml"?>
+<registry xmlns="http://www.iana.org/assignments" id="character-sets">
+  <updated>2013-10-01</updated>
+  <title>Character Sets</title>
+  <category>Character Sets</category>
+  <xref type="rfc" data="rfc2978"/>
+  <registration_rule>Expert Review</registration_rule>
+  <expert>Primary Expert Ned Freed and Secondary Expert Martin Dürst</expert>
+  <note>These are the official names for character sets that may be used in
 the Internet and may be referred to in Internet documentation.  These
 names are expressed in ANSI_X3.4-1968 which is commonly called
 US-ASCII or simply ASCII.  The character set most commonly use in the
@@ -1347,26 +1329,26 @@ that have been standardized by some standard setting organization.
 This region is intended for standards that do not have subset
 implementations. The second region (1000-1999) is for the Unicode and
 ISO/IEC 10646 coded character sets together with a specification of a
-(set of) sub-repertoires that may occur.  The third region (>1999) is
+(set of) sub-repertoires that may occur.  The third region (&gt;1999) is
 intended for vendor specific coded character sets.
 
-	Assigned MIB enum Numbers
-	-------------------------
-	0-2		Reserved
-	3-999		Set By Standards Organizations
-	1000-1999	Unicode / 10646
-	2000-2999	Vendor
+        Assigned MIB enum Numbers
+        -------------------------
+        0-2             Reserved
+        3-999           Set By Standards Organizations
+        1000-1999       Unicode / 10646
+        2000-2999       Vendor
 
 The aliases that start with "cs" have been added for use with the
-IANA-CHARSET-MIB as originally defined in RFC3808, and as currently
-maintained by IANA at http://www.iana.org/assignments/ianacharset-mib.
+IANA-CHARSET-MIB as originally defined in <xref type="rfc" data="rfc3808"/>, and as currently
+maintained by IANA at <xref type="registry" data="ianacharset-mib"/>.
 Note that the ianacharset-mib needs to be kept in sync with this
-registry.  These aliases that start with "cs" contain the standard 
-numbers along with suggestive names in order to facilitate applications 
-that want to display the names in user interfaces.  The "cs" stands 
-for character set and is provided for applications that need a lower 
-case first letter but want to use mixed case thereafter that cannot 
-contain any special characters, such as underbar ("_") and dash ("-").  
+registry.  These aliases that start with "cs" contain the standard
+numbers along with suggestive names in order to facilitate applications
+that want to display the names in user interfaces.  The "cs" stands
+for character set and is provided for applications that need a lower
+case first letter but want to use mixed case thereafter that cannot
+contain any special characters, such as underbar ("_") and dash ("-").
 
 If the character set is from an ISO standard, its cs alias is the ISO
 standard number or name.  If the character set is not from an ISO
@@ -1376,1851 +1358,2813 @@ ISOnnn followed by letters suggestive of the name or standards number
 of the code set.  When a national or international standard is
 revised, the year of revision is added to the cs alias of the new
 character set entry in the IANA Registry in order to distinguish the
-revised character set from the original character set.
-
-
-Character Set                                               Reference
--------------                                               ---------
-
-Name: ANSI_X3.4-1968                                   [RFC1345,KXS2]
-MIBenum: 3
-Source: ECMA registry
-Alias: iso-ir-6
-Alias: ANSI_X3.4-1986
-Alias: ISO_646.irv:1991
-Alias: ASCII
-Alias: ISO646-US
-Alias: US-ASCII (preferred MIME name)
-Alias: us
-Alias: IBM367
-Alias: cp367
-Alias: csASCII
-
-Name: ISO_8859-1:1987                                    [RFC1345,KXS2]
-MIBenum: 4
-Source: ECMA registry
-Alias: iso-ir-100
-Alias: ISO_8859-1
-Alias: ISO-8859-1 (preferred MIME name)
-Alias: latin1
-Alias: l1
-Alias: IBM819
-Alias: CP819
-Alias: csISOLatin1
-
-Name: ISO_8859-2:1987                                    [RFC1345,KXS2]
-MIBenum: 5
-Source: ECMA registry
-Alias: iso-ir-101
-Alias: ISO_8859-2
-Alias: ISO-8859-2 (preferred MIME name)
-Alias: latin2
-Alias: l2
-Alias: csISOLatin2
-
-Name: ISO_8859-3:1988                                    [RFC1345,KXS2]
-MIBenum: 6
-Source: ECMA registry
-Alias: iso-ir-109
-Alias: ISO_8859-3
-Alias: ISO-8859-3 (preferred MIME name)
-Alias: latin3
-Alias: l3
-Alias: csISOLatin3
-
-Name: ISO_8859-4:1988                                    [RFC1345,KXS2]
-MIBenum: 7
-Source: ECMA registry
-Alias: iso-ir-110
-Alias: ISO_8859-4
-Alias: ISO-8859-4 (preferred MIME name)
-Alias: latin4
-Alias: l4
-Alias: csISOLatin4
-
-Name: ISO_8859-5:1988                                     [RFC1345,KXS2]
-MIBenum: 8
-Source: ECMA registry
-Alias: iso-ir-144
-Alias: ISO_8859-5
-Alias: ISO-8859-5 (preferred MIME name)
-Alias: cyrillic
-Alias: csISOLatinCyrillic
-
-Name: ISO_8859-6:1987                                    [RFC1345,KXS2]
-MIBenum: 9
-Source: ECMA registry
-Alias: iso-ir-127
-Alias: ISO_8859-6
-Alias: ISO-8859-6 (preferred MIME name)
-Alias: ECMA-114
-Alias: ASMO-708
-Alias: arabic
-Alias: csISOLatinArabic
-
-Name: ISO_8859-7:1987                            [RFC1947,RFC1345,KXS2]
-MIBenum: 10
-Source: ECMA registry
-Alias: iso-ir-126
-Alias: ISO_8859-7
-Alias: ISO-8859-7 (preferred MIME name)
-Alias: ELOT_928
-Alias: ECMA-118
-Alias: greek
-Alias: greek8
-Alias: csISOLatinGreek
-
-Name: ISO_8859-8:1988                                     [RFC1345,KXS2]
-MIBenum: 11
-Source: ECMA registry
-Alias: iso-ir-138
-Alias: ISO_8859-8
-Alias: ISO-8859-8 (preferred MIME name)
-Alias: hebrew
-Alias: csISOLatinHebrew
-
-Name: ISO_8859-9:1989                                     [RFC1345,KXS2]
-MIBenum: 12
-Source: ECMA registry
-Alias: iso-ir-148
-Alias: ISO_8859-9
-Alias: ISO-8859-9 (preferred MIME name)
-Alias: latin5
-Alias: l5
-Alias: csISOLatin5
-
-Name: ISO-8859-10 (preferred MIME name)			  [RFC1345,KXS2]
-MIBenum: 13
-Source: ECMA registry
-Alias: iso-ir-157
-Alias: l6
-Alias: ISO_8859-10:1992
-Alias: csISOLatin6
-Alias: latin6
-
-Name: ISO_6937-2-add                                      [RFC1345,KXS2]
-MIBenum: 14
-Source: ECMA registry and ISO 6937-2:1983
-Alias: iso-ir-142
-Alias: csISOTextComm
-
-Name: JIS_X0201                                           [RFC1345,KXS2]
-MIBenum: 15
-Source: JIS X 0201-1976.   One byte only, this is equivalent to 
-        JIS/Roman (similar to ASCII) plus eight-bit half-width 
-        Katakana
-Alias: X0201
-Alias: csHalfWidthKatakana
-
-Name: JIS_Encoding
-MIBenum: 16
-Source: JIS X 0202-1991.  Uses ISO 2022 escape sequences to
-        shift code sets as documented in JIS X 0202-1991.
-Alias: csJISEncoding
-
-Name: Shift_JIS  (preferred MIME name)
-MIBenum: 17
-Source: This charset is an extension of csHalfWidthKatakana by
-        adding graphic characters in JIS X 0208.  The CCS's are
-        JIS X0201:1997 and JIS X0208:1997.  The
-        complete definition is shown in Appendix 1 of JIS
-        X0208:1997.
-        This charset can be used for the top-level media type "text".
-Alias: MS_Kanji 
-Alias: csShiftJIS
-
-Name: Extended_UNIX_Code_Packed_Format_for_Japanese
-MIBenum: 18
-Source: Standardized by OSF, UNIX International, and UNIX Systems
-        Laboratories Pacific.  Uses ISO 2022 rules to select
-               code set 0: US-ASCII (a single 7-bit byte set)
-               code set 1: JIS X0208-1990 (a double 8-bit byte set)
-                           restricted to A0-FF in both bytes
-               code set 2: Half Width Katakana (a single 7-bit byte set)
-                           requiring SS2 as the character prefix
-               code set 3: JIS X0212-1990 (a double 7-bit byte set)
-                           restricted to A0-FF in both bytes
-                           requiring SS3 as the character prefix
-Alias: csEUCPkdFmtJapanese
-Alias: EUC-JP  (preferred MIME name)
-
-Name: Extended_UNIX_Code_Fixed_Width_for_Japanese
-MIBenum: 19
-Source: Used in Japan.  Each character is 2 octets.
-                code set 0: US-ASCII (a single 7-bit byte set)
-                              1st byte = 00
-                              2nd byte = 20-7E
-                code set 1: JIS X0208-1990 (a double 7-bit byte set)
-                            restricted  to A0-FF in both bytes 
-                code set 2: Half Width Katakana (a single 7-bit byte set)
-                              1st byte = 00
-                              2nd byte = A0-FF
-                code set 3: JIS X0212-1990 (a double 7-bit byte set)
-                            restricted to A0-FF in 
-                            the first byte
-                and 21-7E in the second byte
-Alias: csEUCFixWidJapanese
-
-Name: BS_4730                                           [RFC1345,KXS2]
-MIBenum: 20
-Source: ECMA registry
-Alias: iso-ir-4
-Alias: ISO646-GB
-Alias: gb
-Alias: uk
-Alias: csISO4UnitedKingdom
-
-Name: SEN_850200_C                                      [RFC1345,KXS2]
-MIBenum: 21
-Source: ECMA registry
-Alias: iso-ir-11
-Alias: ISO646-SE2
-Alias: se2
-Alias: csISO11SwedishForNames
-
-Name: IT                                                [RFC1345,KXS2]
-MIBenum: 22
-Source: ECMA registry
-Alias: iso-ir-15
-Alias: ISO646-IT
-Alias: csISO15Italian
-
-Name: ES                                                [RFC1345,KXS2]
-MIBenum: 23
-Source: ECMA registry
-Alias: iso-ir-17
-Alias: ISO646-ES
-Alias: csISO17Spanish
-
-Name: DIN_66003                                         [RFC1345,KXS2]
-MIBenum: 24
-Source: ECMA registry
-Alias: iso-ir-21
-Alias: de
-Alias: ISO646-DE
-Alias: csISO21German
-
-Name: NS_4551-1                                         [RFC1345,KXS2]
-MIBenum: 25
-Source: ECMA registry
-Alias: iso-ir-60
-Alias: ISO646-NO
-Alias: no
-Alias: csISO60DanishNorwegian
-Alias: csISO60Norwegian1
-
-Name: NF_Z_62-010                                        [RFC1345,KXS2]
-MIBenum: 26
-Source: ECMA registry
-Alias: iso-ir-69
-Alias: ISO646-FR
-Alias: fr
-Alias: csISO69French
-
-Name: ISO-10646-UTF-1
-MIBenum: 27
-Source: Universal Transfer Format (1), this is the multibyte
-        encoding, that subsets ASCII-7. It does not have byte
-        ordering issues.
-Alias: csISO10646UTF1
-
-Name: ISO_646.basic:1983                                [RFC1345,KXS2]
-MIBenum: 28
-Source: ECMA registry
-Alias: ref
-Alias: csISO646basic1983
-
-Name: INVARIANT                                         [RFC1345,KXS2]
-MIBenum: 29
-Alias: csINVARIANT
-
-Name: ISO_646.irv:1983                                  [RFC1345,KXS2]
-MIBenum: 30
-Source: ECMA registry
-Alias: iso-ir-2
-Alias: irv
-Alias: csISO2IntlRefVersion
-
-Name: NATS-SEFI                                         [RFC1345,KXS2]
-MIBenum: 31
-Source: ECMA registry
-Alias: iso-ir-8-1
-Alias: csNATSSEFI
-
-Name: NATS-SEFI-ADD                                     [RFC1345,KXS2]
-MIBenum: 32
-Source: ECMA registry
-Alias: iso-ir-8-2
-Alias: csNATSSEFIADD
-
-Name: NATS-DANO                                         [RFC1345,KXS2]
-MIBenum: 33
-Source: ECMA registry
-Alias: iso-ir-9-1
-Alias: csNATSDANO
-
-Name: NATS-DANO-ADD                                     [RFC1345,KXS2]
-MIBenum: 34
-Source: ECMA registry
-Alias: iso-ir-9-2
-Alias: csNATSDANOADD
-
-Name: SEN_850200_B                                      [RFC1345,KXS2]
-MIBenum: 35
-Source: ECMA registry
-Alias: iso-ir-10
-Alias: FI
-Alias: ISO646-FI
-Alias: ISO646-SE
-Alias: se
-Alias: csISO10Swedish
-
-Name: KS_C_5601-1987                                    [RFC1345,KXS2]
-MIBenum: 36
-Source: ECMA registry
-Alias: iso-ir-149
-Alias: KS_C_5601-1989
-Alias: KSC_5601
-Alias: korean
-Alias: csKSC56011987
-
-Name: ISO-2022-KR  (preferred MIME name)                [RFC1557,Choi]
-MIBenum: 37
-Source: RFC-1557 (see also KS_C_5601-1987)
-Alias: csISO2022KR
-
-Name: EUC-KR  (preferred MIME name)                     [RFC1557,Choi]
-MIBenum: 38
-Source: RFC-1557 (see also KS_C_5861-1992)
-Alias: csEUCKR
-
-Name: ISO-2022-JP  (preferred MIME name)               [RFC1468,Murai]
-MIBenum: 39
-Source: RFC-1468 (see also RFC-2237)
-Alias: csISO2022JP
-
-Name: ISO-2022-JP-2  (preferred MIME name)              [RFC1554,Ohta]
-MIBenum: 40
-Source: RFC-1554
-Alias: csISO2022JP2
-
-Name: JIS_C6220-1969-jp                                 [RFC1345,KXS2]
-MIBenum: 41
-Source: ECMA registry
-Alias: JIS_C6220-1969
-Alias: iso-ir-13
-Alias: katakana
-Alias: x0201-7
-Alias: csISO13JISC6220jp
-
-Name: JIS_C6220-1969-ro                                 [RFC1345,KXS2]
-MIBenum: 42
-Source: ECMA registry
-Alias: iso-ir-14
-Alias: jp
-Alias: ISO646-JP
-Alias: csISO14JISC6220ro
-
-Name: PT                                                [RFC1345,KXS2]
-MIBenum: 43
-Source: ECMA registry
-Alias: iso-ir-16
-Alias: ISO646-PT
-Alias: csISO16Portuguese
-
-Name: greek7-old                                        [RFC1345,KXS2]
-MIBenum: 44
-Source: ECMA registry
-Alias: iso-ir-18
-Alias: csISO18Greek7Old
-
-Name: latin-greek                                       [RFC1345,KXS2]
-MIBenum: 45
-Source: ECMA registry
-Alias: iso-ir-19
-Alias: csISO19LatinGreek
-
-Name: NF_Z_62-010_(1973)                                [RFC1345,KXS2]
-MIBenum: 46
-Source: ECMA registry
-Alias: iso-ir-25
-Alias: ISO646-FR1
-Alias: csISO25French
-
-Name: Latin-greek-1                                     [RFC1345,KXS2]
-MIBenum: 47
-Source: ECMA registry
-Alias: iso-ir-27
-Alias: csISO27LatinGreek1
-
-Name: ISO_5427                                          [RFC1345,KXS2]
-MIBenum: 48
-Source: ECMA registry
-Alias: iso-ir-37
-Alias: csISO5427Cyrillic
-
-Name: JIS_C6226-1978                                    [RFC1345,KXS2]
-MIBenum: 49
-Source: ECMA registry
-Alias: iso-ir-42
-Alias: csISO42JISC62261978
-
-Name: BS_viewdata                                       [RFC1345,KXS2]
-MIBenum: 50
-Source: ECMA registry
-Alias: iso-ir-47
-Alias: csISO47BSViewdata
-
-Name: INIS                                              [RFC1345,KXS2]
-MIBenum: 51
-Source: ECMA registry
-Alias: iso-ir-49
-Alias: csISO49INIS
-
-Name: INIS-8                                            [RFC1345,KXS2]
-MIBenum: 52
-Source: ECMA registry
-Alias: iso-ir-50
-Alias: csISO50INIS8
-
-Name: INIS-cyrillic                                     [RFC1345,KXS2]
-MIBenum: 53
-Source: ECMA registry
-Alias: iso-ir-51
-Alias: csISO51INISCyrillic
-
-Name: ISO_5427:1981                                     [RFC1345,KXS2]
-MIBenum: 54
-Source: ECMA registry
-Alias: iso-ir-54
-Alias: ISO5427Cyrillic1981
-
-Name: ISO_5428:1980                                     [RFC1345,KXS2]
-MIBenum: 55
-Source: ECMA registry
-Alias: iso-ir-55
-Alias: csISO5428Greek
-
-Name: GB_1988-80                                        [RFC1345,KXS2]
-MIBenum: 56
-Source: ECMA registry
-Alias: iso-ir-57
-Alias: cn
-Alias: ISO646-CN
-Alias: csISO57GB1988
-
-Name: GB_2312-80                                        [RFC1345,KXS2]
-MIBenum: 57
-Source: ECMA registry
-Alias: iso-ir-58
-Alias: chinese
-Alias: csISO58GB231280
-
-Name: NS_4551-2                                          [RFC1345,KXS2]
-MIBenum: 58
-Source: ECMA registry
-Alias: ISO646-NO2
-Alias: iso-ir-61
-Alias: no2
-Alias: csISO61Norwegian2
-
-Name: videotex-suppl                                     [RFC1345,KXS2]
-MIBenum: 59
-Source: ECMA registry
-Alias: iso-ir-70
-Alias: csISO70VideotexSupp1
-
-Name: PT2                                                [RFC1345,KXS2]
-MIBenum: 60
-Source: ECMA registry
-Alias: iso-ir-84
-Alias: ISO646-PT2
-Alias: csISO84Portuguese2
-
-Name: ES2                                                [RFC1345,KXS2]
-MIBenum: 61
-Source: ECMA registry
-Alias: iso-ir-85
-Alias: ISO646-ES2
-Alias: csISO85Spanish2
-
-Name: MSZ_7795.3                                         [RFC1345,KXS2]
-MIBenum: 62
-Source: ECMA registry
-Alias: iso-ir-86
-Alias: ISO646-HU
-Alias: hu
-Alias: csISO86Hungarian
-
-Name: JIS_C6226-1983                                     [RFC1345,KXS2]
-MIBenum: 63
-Source: ECMA registry
-Alias: iso-ir-87
-Alias: x0208
-Alias: JIS_X0208-1983
-Alias: csISO87JISX0208
-
-Name: greek7                                             [RFC1345,KXS2]
-MIBenum: 64
-Source: ECMA registry
-Alias: iso-ir-88
-Alias: csISO88Greek7
-
-Name: ASMO_449                                           [RFC1345,KXS2]
-MIBenum: 65
-Source: ECMA registry
-Alias: ISO_9036
-Alias: arabic7
-Alias: iso-ir-89
-Alias: csISO89ASMO449
-
-Name: iso-ir-90                                          [RFC1345,KXS2]
-MIBenum: 66
-Source: ECMA registry
-Alias: csISO90
-
-Name: JIS_C6229-1984-a                                   [RFC1345,KXS2]
-MIBenum: 67
-Source: ECMA registry
-Alias: iso-ir-91
-Alias: jp-ocr-a
-Alias: csISO91JISC62291984a
-
-Name: JIS_C6229-1984-b                                   [RFC1345,KXS2]
-MIBenum: 68
-Source: ECMA registry
-Alias: iso-ir-92
-Alias: ISO646-JP-OCR-B
-Alias: jp-ocr-b
-Alias: csISO92JISC62991984b
-
-Name: JIS_C6229-1984-b-add                               [RFC1345,KXS2]
-MIBenum: 69
-Source: ECMA registry
-Alias: iso-ir-93
-Alias: jp-ocr-b-add
-Alias: csISO93JIS62291984badd
-
-Name: JIS_C6229-1984-hand                                [RFC1345,KXS2]
-MIBenum: 70
-Source: ECMA registry
-Alias: iso-ir-94
-Alias: jp-ocr-hand
-Alias: csISO94JIS62291984hand
-
-Name: JIS_C6229-1984-hand-add                            [RFC1345,KXS2]
-MIBenum: 71
-Source: ECMA registry
-Alias: iso-ir-95
-Alias: jp-ocr-hand-add
-Alias: csISO95JIS62291984handadd
-
-Name: JIS_C6229-1984-kana                                [RFC1345,KXS2]
-MIBenum: 72
-Source: ECMA registry
-Alias: iso-ir-96
-Alias: csISO96JISC62291984kana
-
-Name: ISO_2033-1983                                      [RFC1345,KXS2]
-MIBenum: 73
-Source: ECMA registry
-Alias: iso-ir-98
-Alias: e13b
-Alias: csISO2033
-
-Name: ANSI_X3.110-1983                                   [RFC1345,KXS2]
-MIBenum: 74
-Source: ECMA registry
-Alias: iso-ir-99
-Alias: CSA_T500-1983
-Alias: NAPLPS
-Alias: csISO99NAPLPS
-
-Name: T.61-7bit                                          [RFC1345,KXS2]
-MIBenum: 75
-Source: ECMA registry
-Alias: iso-ir-102
-Alias: csISO102T617bit
-
-Name: T.61-8bit                                          [RFC1345,KXS2]
-MIBenum: 76
-Alias: T.61
-Source: ECMA registry
-Alias: iso-ir-103
-Alias: csISO103T618bit
-
-Name: ECMA-cyrillic                                     
-MIBenum: 77
-Source: ISO registry (formerly ECMA registry)
-         http://www.itscj.ipsj.jp/ISO-IR/111.pdf
-Alias: iso-ir-111
-Alias: KOI8-E
-Alias: csISO111ECMACyrillic
-
-Name: CSA_Z243.4-1985-1                                  [RFC1345,KXS2]
-MIBenum: 78
-Source: ECMA registry
-Alias: iso-ir-121
-Alias: ISO646-CA
-Alias: csa7-1
-Alias: ca
-Alias: csISO121Canadian1
-
-Name: CSA_Z243.4-1985-2                                  [RFC1345,KXS2]
-MIBenum: 79
-Source: ECMA registry
-Alias: iso-ir-122
-Alias: ISO646-CA2
-Alias: csa7-2
-Alias: csISO122Canadian2
-
-Name: CSA_Z243.4-1985-gr                                 [RFC1345,KXS2]
-MIBenum: 80
-Source: ECMA registry
-Alias: iso-ir-123
-Alias: csISO123CSAZ24341985gr
-
-Name: ISO_8859-6-E                                       [RFC1556,IANA]
-MIBenum: 81
-Source: RFC1556
-Alias: csISO88596E
-Alias: ISO-8859-6-E (preferred MIME name)
-
-Name: ISO_8859-6-I                                       [RFC1556,IANA]
-MIBenum: 82
-Source: RFC1556
-Alias: csISO88596I
-Alias: ISO-8859-6-I (preferred MIME name)
-
-Name: T.101-G2                                            [RFC1345,KXS2]
-MIBenum: 83
-Source: ECMA registry
-Alias: iso-ir-128
-Alias: csISO128T101G2
-
-Name: ISO_8859-8-E                                  [RFC1556,Nussbacher]
-MIBenum: 84
-Source: RFC1556
-Alias: csISO88598E
-Alias: ISO-8859-8-E (preferred MIME name)
-
-Name: ISO_8859-8-I                                  [RFC1556,Nussbacher]
-MIBenum: 85
-Source: RFC1556
-Alias: csISO88598I
-Alias: ISO-8859-8-I (preferred MIME name)
-
-Name: CSN_369103                                          [RFC1345,KXS2]
-MIBenum: 86
-Source: ECMA registry
-Alias: iso-ir-139
-Alias: csISO139CSN369103
-
-Name: JUS_I.B1.002                                        [RFC1345,KXS2]
-MIBenum: 87
-Source: ECMA registry
-Alias: iso-ir-141
-Alias: ISO646-YU
-Alias: js
-Alias: yu
-Alias: csISO141JUSIB1002
-
-Name: IEC_P27-1                                           [RFC1345,KXS2]
-MIBenum: 88
-Source: ECMA registry
-Alias: iso-ir-143
-Alias: csISO143IECP271
-
-Name: JUS_I.B1.003-serb                                   [RFC1345,KXS2]
-MIBenum: 89
-Source: ECMA registry
-Alias: iso-ir-146
-Alias: serbian
-Alias: csISO146Serbian
-
-Name: JUS_I.B1.003-mac                                    [RFC1345,KXS2]
-MIBenum: 90
-Source: ECMA registry
-Alias: macedonian
-Alias: iso-ir-147
-Alias: csISO147Macedonian
-
-Name: greek-ccitt                                         [RFC1345,KXS2]
-MIBenum: 91
-Source: ECMA registry
-Alias: iso-ir-150
-Alias: csISO150
-Alias: csISO150GreekCCITT
-
-Name: NC_NC00-10:81                                       [RFC1345,KXS2]
-MIBenum: 92
-Source: ECMA registry
-Alias: cuba
-Alias: iso-ir-151
-Alias: ISO646-CU
-Alias: csISO151Cuba
-
-Name: ISO_6937-2-25                                       [RFC1345,KXS2]
-MIBenum: 93
-Source: ECMA registry
-Alias: iso-ir-152
-Alias: csISO6937Add
-
-Name: GOST_19768-74                                       [RFC1345,KXS2]
-MIBenum: 94
-Source: ECMA registry
-Alias: ST_SEV_358-88
-Alias: iso-ir-153
-Alias: csISO153GOST1976874
-
-Name: ISO_8859-supp                                       [RFC1345,KXS2]
-MIBenum: 95
-Source: ECMA registry
-Alias: iso-ir-154
-Alias: latin1-2-5
-Alias: csISO8859Supp
-
-Name: ISO_10367-box                                       [RFC1345,KXS2]
-MIBenum: 96
-Source: ECMA registry
-Alias: iso-ir-155
-Alias: csISO10367Box
-
-Name: latin-lap                                           [RFC1345,KXS2]
-MIBenum: 97
-Source: ECMA registry
-Alias: lap
-Alias: iso-ir-158
-Alias: csISO158Lap
-
-Name: JIS_X0212-1990                                      [RFC1345,KXS2]
-MIBenum: 98
-Source: ECMA registry
-Alias: x0212
-Alias: iso-ir-159
-Alias: csISO159JISX02121990
-
-Name: DS_2089                                             [RFC1345,KXS2]
-MIBenum: 99
-Source: Danish Standard, DS 2089, February 1974
-Alias: DS2089
-Alias: ISO646-DK
-Alias: dk
-Alias: csISO646Danish
-
-Name: us-dk                                               [RFC1345,KXS2]
-MIBenum: 100
-Alias: csUSDK
-
-Name: dk-us                                               [RFC1345,KXS2]
-MIBenum: 101
-Alias: csDKUS
-
-Name: KSC5636                                             [RFC1345,KXS2]
-MIBenum: 102
-Alias: ISO646-KR
-Alias: csKSC5636
-
-Name: UNICODE-1-1-UTF-7                                        [RFC1642]
-MIBenum: 103
-Source: RFC 1642
-Alias: csUnicode11UTF7
-
-Name: ISO-2022-CN                                            [RFC1922]
-MIBenum: 104
-Source: RFC-1922
-
-Name: ISO-2022-CN-EXT                                        [RFC1922]
-MIBenum: 105
-Source: RFC-1922
-
-Name: UTF-8                                                    [RFC3629]
-MIBenum: 106
-Source: RFC 3629
-Alias: None 
-
-Name: ISO-8859-13
-MIBenum: 109
-Source: ISO See (http://www.iana.org/assignments/charset-reg/ISO-8859-13)[Tumasonis] 
-Alias: None
-
-Name: ISO-8859-14
-MIBenum: 110
-Source: ISO See (http://www.iana.org/assignments/charset-reg/ISO-8859-14) [Simonsen]
-Alias: iso-ir-199
-Alias: ISO_8859-14:1998
-Alias: ISO_8859-14
-Alias: latin8
-Alias: iso-celtic
-Alias: l8
-
-Name: ISO-8859-15
-MIBenum: 111
-Source: ISO 
-        Please see: <http://www.iana.org/assignments/charset-reg/ISO-8859-15>
-Alias: ISO_8859-15
-Alias: Latin-9
-
-Name: ISO-8859-16
-MIBenum: 112
-Source: ISO
-Alias: iso-ir-226
-Alias: ISO_8859-16:2001
-Alias: ISO_8859-16
-Alias: latin10
-Alias: l10 
-
-Name: GBK                                                 
-MIBenum: 113
-Source: Chinese IT Standardization Technical Committee  
-        Please see: <http://www.iana.org/assignments/charset-reg/GBK>
-Alias: CP936
-Alias: MS936
-Alias: windows-936
-
-Name: GB18030
-MIBenum: 114
-Source: Chinese IT Standardization Technical Committee
-        Please see: <http://www.iana.org/assignments/charset-reg/GB18030>
-Alias: None
-
-Name:  OSD_EBCDIC_DF04_15
-MIBenum:  115
-Source:  Fujitsu-Siemens standard mainframe EBCDIC encoding
-         Please see: <http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF04-15>
-Alias:   None
-
-Name:  OSD_EBCDIC_DF03_IRV
-MIBenum:  116
-Source:  Fujitsu-Siemens standard mainframe EBCDIC encoding
-         Please see: <http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF03-IRV>
-Alias:  None
-
-Name:  OSD_EBCDIC_DF04_1
-MIBenum:  117
-Source:  Fujitsu-Siemens standard mainframe EBCDIC encoding
-         Please see: <http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF04-1>
-Alias:  None   
-
-Name: ISO-11548-1
-MIBenum: 118 
-Source: See <http://www.iana.org/assignments/charset-reg/ISO-11548-1>            [Thibault]
-Alias: ISO_11548-1
-Alias: ISO_TR_11548-1
-Alias: csISO115481
-
-Name: KZ-1048
-MIBenum: 119 
-Source: See <http://www.iana.org/assignments/charset-reg/KZ-1048>      [Veremeev, Kikkarin]
-Alias: STRK1048-2002
-Alias: RK1048
-Alias: csKZ1048
-
-Name: ISO-10646-UCS-2
-MIBenum: 1000
-Source: the 2-octet Basic Multilingual Plane, aka Unicode
-        this needs to specify network byte order: the standard
-        does not specify (it is a 16-bit integer space)
-Alias: csUnicode
-
-Name: ISO-10646-UCS-4
-MIBenum: 1001
-Source: the full code space. (same comment about byte order,
-        these are 31-bit numbers.
-Alias: csUCS4
-
-Name: ISO-10646-UCS-Basic
-MIBenum: 1002
-Source: ASCII subset of Unicode.  Basic Latin = collection 1
-        See ISO 10646, Appendix A
-Alias: csUnicodeASCII
-
-Name: ISO-10646-Unicode-Latin1
-MIBenum: 1003
-Source: ISO Latin-1 subset of Unicode. Basic Latin and Latin-1 
-         Supplement  = collections 1 and 2.  See ISO 10646, 
-         Appendix A.  See RFC 1815.
-Alias: csUnicodeLatin1
-Alias: ISO-10646
-
-Name: ISO-10646-J-1
-Source: ISO 10646 Japanese, see RFC 1815.
-
-Name: ISO-Unicode-IBM-1261
-MIBenum: 1005
-Source: IBM Latin-2, -3, -5, Extended Presentation Set, GCSGID: 1261
-Alias: csUnicodeIBM1261
-
-Name: ISO-Unicode-IBM-1268
-MIBenum: 1006
-Source: IBM Latin-4 Extended Presentation Set, GCSGID: 1268
-Alias: csUnicodeIBM1268
-
-Name: ISO-Unicode-IBM-1276
-MIBenum: 1007
-Source: IBM Cyrillic Greek Extended Presentation Set, GCSGID: 1276
-Alias: csUnicodeIBM1276
-
-Name: ISO-Unicode-IBM-1264
-MIBenum: 1008
-Source: IBM Arabic Presentation Set, GCSGID: 1264
-Alias: csUnicodeIBM1264
-
-Name: ISO-Unicode-IBM-1265
-MIBenum: 1009
-Source: IBM Hebrew Presentation Set, GCSGID: 1265
-Alias: csUnicodeIBM1265
-
-Name: UNICODE-1-1                                              [RFC1641]
-MIBenum: 1010
-Source: RFC 1641
-Alias: csUnicode11
-
-Name: SCSU
-MIBenum: 1011
-Source: SCSU See (http://www.iana.org/assignments/charset-reg/SCSU)     [Scherer]
-Alias: None 
-
-Name: UTF-7                                                    [RFC2152]
-MIBenum: 1012
-Source: RFC 2152
-Alias: None
-
-Name: UTF-16BE                                                 [RFC2781]
-MIBenum: 1013
-Source: RFC 2781
-Alias: None
-
-Name: UTF-16LE                                                 [RFC2781]
-MIBenum: 1014
-Source: RFC 2781
-Alias: None
-
-Name: UTF-16                                                   [RFC2781]
-MIBenum: 1015
-Source: RFC 2781
-Alias: None
-
-Name: CESU-8                                                    [Phipps]
-MIBenum: 1016
-Source: <http://www.unicode.org/unicode/reports/tr26>
-Alias: csCESU-8
-
-Name: UTF-32                                                     [Davis] 
-MIBenum: 1017
-Source: <http://www.unicode.org/unicode/reports/tr19/>
-Alias: None
-
-Name: UTF-32BE                                                   [Davis]
-MIBenum: 1018
-Source: <http://www.unicode.org/unicode/reports/tr19/>
-Alias: None
-
-Name: UTF-32LE                                                   [Davis]
-MIBenum: 1019
-Source: <http://www.unicode.org/unicode/reports/tr19/>
-Alias: None
-
-Name: BOCU-1                                                   [Scherer]
-MIBenum: 1020
-Source: http://www.unicode.org/notes/tn6/
-Alias: csBOCU-1
-
-Name: ISO-8859-1-Windows-3.0-Latin-1                           [HP-PCL5] 
-MIBenum: 2000
-Source: Extended ISO 8859-1 Latin-1 for Windows 3.0.  
-        PCL Symbol Set id: 9U
-Alias: csWindows30Latin1
-
-Name: ISO-8859-1-Windows-3.1-Latin-1                           [HP-PCL5] 
-MIBenum: 2001
-Source: Extended ISO 8859-1 Latin-1 for Windows 3.1.  
-        PCL Symbol Set id: 19U
-Alias: csWindows31Latin1
-
-Name: ISO-8859-2-Windows-Latin-2                               [HP-PCL5] 
-MIBenum: 2002
-Source: Extended ISO 8859-2.  Latin-2 for Windows 3.1.
-        PCL Symbol Set id: 9E
-Alias: csWindows31Latin2
-
-Name: ISO-8859-9-Windows-Latin-5                               [HP-PCL5] 
-MIBenum: 2003
-Source: Extended ISO 8859-9.  Latin-5 for Windows 3.1
-        PCL Symbol Set id: 5T
-Alias: csWindows31Latin5
-
-Name: hp-roman8                                  [HP-PCL5,RFC1345,KXS2]
-MIBenum: 2004
-Source: LaserJet IIP Printer User's Manual, 
-        HP part no 33471-90901, Hewlet-Packard, June 1989.
-Alias: roman8
-Alias: r8
-Alias: csHPRoman8
-
-Name: Adobe-Standard-Encoding                                    [Adobe]
-MIBenum: 2005
-Source: PostScript Language Reference Manual
-        PCL Symbol Set id: 10J
-Alias: csAdobeStandardEncoding
-
-Name: Ventura-US                                               [HP-PCL5]
-MIBenum: 2006
-Source: Ventura US.  ASCII plus characters typically used in 
-        publishing, like pilcrow, copyright, registered, trade mark, 
-        section, dagger, and double dagger in the range A0 (hex) 
-        to FF (hex).  
-        PCL Symbol Set id: 14J
-Alias: csVenturaUS  
-
-Name: Ventura-International                                    [HP-PCL5]
-MIBenum: 2007
-Source: Ventura International.  ASCII plus coded characters similar 
-        to Roman8.
-        PCL Symbol Set id: 13J
-Alias: csVenturaInternational
-
-Name: DEC-MCS                                             [RFC1345,KXS2]
-MIBenum: 2008
-Source: VAX/VMS User's Manual, 
-        Order Number: AI-Y517A-TE, April 1986.
-Alias: dec
-Alias: csDECMCS
-
-Name: IBM850                                              [RFC1345,KXS2]
-MIBenum: 2009
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp850
-Alias: 850
-Alias: csPC850Multilingual
-
-Name: PC8-Danish-Norwegian                                     [HP-PCL5]
-MIBenum: 2012
-Source: PC Danish Norwegian
-        8-bit PC set for Danish Norwegian
-        PCL Symbol Set id: 11U
-Alias: csPC8DanishNorwegian
-
-Name: IBM862                                              [RFC1345,KXS2]
-MIBenum: 2013
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp862
-Alias: 862
-Alias: csPC862LatinHebrew
-
-Name: PC8-Turkish                                              [HP-PCL5]
-MIBenum: 2014
-Source: PC Latin Turkish.  PCL Symbol Set id: 9T
-Alias: csPC8Turkish
-
-Name: IBM-Symbols                                             [IBM-CIDT] 
-MIBenum: 2015
-Source: Presentation Set, CPGID: 259
-Alias: csIBMSymbols
-
-Name: IBM-Thai                                                [IBM-CIDT] 
-MIBenum: 2016
-Source: Presentation Set, CPGID: 838
-Alias: csIBMThai
-
-Name: HP-Legal                                                 [HP-PCL5]
-MIBenum: 2017
-Source: PCL 5 Comparison Guide, Hewlett-Packard,
-        HP part number 5961-0510, October 1992
-        PCL Symbol Set id: 1U
-Alias: csHPLegal
-
-Name: HP-Pi-font                                               [HP-PCL5]
-MIBenum: 2018
-Source: PCL 5 Comparison Guide, Hewlett-Packard,
-        HP part number 5961-0510, October 1992
-        PCL Symbol Set id: 15U
-Alias: csHPPiFont
-
-Name: HP-Math8                                                 [HP-PCL5]
-MIBenum: 2019
-Source: PCL 5 Comparison Guide, Hewlett-Packard,
-        HP part number 5961-0510, October 1992
-        PCL Symbol Set id: 8M
-Alias: csHPMath8
-
-Name: Adobe-Symbol-Encoding                                      [Adobe]
-MIBenum: 2020
-Source: PostScript Language Reference Manual
-        PCL Symbol Set id: 5M
-Alias: csHPPSMath
-
-Name: HP-DeskTop                                               [HP-PCL5]
-MIBenum: 2021
-Source: PCL 5 Comparison Guide, Hewlett-Packard,
-        HP part number 5961-0510, October 1992
-        PCL Symbol Set id: 7J
-Alias: csHPDesktop
-
-Name: Ventura-Math                                             [HP-PCL5]
-MIBenum: 2022
-Source: PCL 5 Comparison Guide, Hewlett-Packard,
-        HP part number 5961-0510, October 1992
-        PCL Symbol Set id: 6M
-Alias: csVenturaMath
-
-Name: Microsoft-Publishing                                     [HP-PCL5]
-MIBenum: 2023
-Source: PCL 5 Comparison Guide, Hewlett-Packard,
-        HP part number 5961-0510, October 1992
-        PCL Symbol Set id: 6J
-Alias: csMicrosoftPublishing
-
-Name: Windows-31J
-MIBenum: 2024
-Source: Windows Japanese.  A further extension of Shift_JIS
-        to include NEC special characters (Row 13), NEC
-        selection of IBM extensions (Rows 89 to 92), and IBM
-        extensions (Rows 115 to 119).  The CCS's are
-        JIS X0201:1997, JIS X0208:1997, and these extensions.
-        This charset can be used for the top-level media type "text",
-        but it is of limited or specialized use (see RFC2278).
-        PCL Symbol Set id: 19K
-Alias: csWindows31J
-
-Name: GB2312  (preferred MIME name)
-MIBenum: 2025
-Source: Chinese for People's Republic of China (PRC) mixed one byte, 
-        two byte set: 
-          20-7E = one byte ASCII 
-          A1-FE = two byte PRC Kanji 
-        See GB 2312-80 
-        PCL Symbol Set Id: 18C
-Alias: csGB2312
-
-Name: Big5  (preferred MIME name)
-MIBenum: 2026
-Source: Chinese for Taiwan Multi-byte set.
-        PCL Symbol Set Id: 18T
-Alias: csBig5
-
-Name: macintosh                                           [RFC1345,KXS2]
-MIBenum: 2027
-Source: The Unicode Standard ver1.0, ISBN 0-201-56788-1, Oct 1991
-Alias: mac
-Alias: csMacintosh
-
-Name: IBM037                                              [RFC1345,KXS2]
-MIBenum: 2028
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp037
-Alias: ebcdic-cp-us
-Alias: ebcdic-cp-ca
-Alias: ebcdic-cp-wt
-Alias: ebcdic-cp-nl
-Alias: csIBM037
-
-Name: IBM038                                              [RFC1345,KXS2]
-MIBenum: 2029
-Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
-Alias: EBCDIC-INT
-Alias: cp038
-Alias: csIBM038
-
-Name: IBM273                                              [RFC1345,KXS2]
-MIBenum: 2030
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP273
-Alias: csIBM273
-
-Name: IBM274                                              [RFC1345,KXS2]
-MIBenum: 2031
-Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
-Alias: EBCDIC-BE
-Alias: CP274
-Alias: csIBM274
-
-Name: IBM275                                              [RFC1345,KXS2]
-MIBenum: 2032
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: EBCDIC-BR
-Alias: cp275
-Alias: csIBM275
-
-Name: IBM277                                              [RFC1345,KXS2]
-MIBenum: 2033
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: EBCDIC-CP-DK
-Alias: EBCDIC-CP-NO
-Alias: csIBM277
-
-Name: IBM278                                              [RFC1345,KXS2]
-MIBenum: 2034
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP278
-Alias: ebcdic-cp-fi
-Alias: ebcdic-cp-se
-Alias: csIBM278
-
-Name: IBM280                                              [RFC1345,KXS2]
-MIBenum: 2035
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP280
-Alias: ebcdic-cp-it
-Alias: csIBM280
-
-Name: IBM281                                              [RFC1345,KXS2]
-MIBenum: 2036
-Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
-Alias: EBCDIC-JP-E
-Alias: cp281
-Alias: csIBM281
-
-Name: IBM284                                              [RFC1345,KXS2]
-MIBenum: 2037
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP284
-Alias: ebcdic-cp-es
-Alias: csIBM284
-
-Name: IBM285                                              [RFC1345,KXS2]
-MIBenum: 2038
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP285
-Alias: ebcdic-cp-gb
-Alias: csIBM285
-
-Name: IBM290                                              [RFC1345,KXS2]
-MIBenum: 2039
-Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
-Alias: cp290
-Alias: EBCDIC-JP-kana
-Alias: csIBM290
-
-Name: IBM297                                              [RFC1345,KXS2]
-MIBenum: 2040
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp297
-Alias: ebcdic-cp-fr
-Alias: csIBM297
-
-Name: IBM420                                              [RFC1345,KXS2]
-MIBenum: 2041
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990, 
-        IBM NLS RM p 11-11
-Alias: cp420
-Alias: ebcdic-cp-ar1
-Alias: csIBM420
-
-Name: IBM423                                              [RFC1345,KXS2]
-MIBenum: 2042
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp423
-Alias: ebcdic-cp-gr
-Alias: csIBM423
-
-Name: IBM424                                              [RFC1345,KXS2]
-MIBenum: 2043
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp424
-Alias: ebcdic-cp-he
-Alias: csIBM424
-
-Name: IBM437                                              [RFC1345,KXS2]
-MIBenum: 2011
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp437
-Alias: 437
-Alias: csPC8CodePage437
-
-Name: IBM500                                              [RFC1345,KXS2]
-MIBenum: 2044
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP500
-Alias: ebcdic-cp-be
-Alias: ebcdic-cp-ch
-Alias: csIBM500
-
-Name: IBM851                                              [RFC1345,KXS2]
-MIBenum: 2045
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp851
-Alias: 851
-Alias: csIBM851
-
-Name: IBM852                                              [RFC1345,KXS2]
-MIBenum: 2010
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp852
-Alias: 852
-Alias: csPCp852
-
-Name: IBM855                                              [RFC1345,KXS2]
-MIBenum: 2046
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp855
-Alias: 855
-Alias: csIBM855
-
-Name: IBM857                                              [RFC1345,KXS2]
-MIBenum: 2047
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp857
-Alias: 857
-Alias: csIBM857
-
-Name: IBM860                                              [RFC1345,KXS2]
-MIBenum: 2048
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp860
-Alias: 860
-Alias: csIBM860
-
-Name: IBM861                                              [RFC1345,KXS2]
-MIBenum: 2049
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp861
-Alias: 861
-Alias: cp-is
-Alias: csIBM861
-
-Name: IBM863                                              [RFC1345,KXS2]
-MIBenum: 2050
-Source: IBM Keyboard layouts and code pages, PN 07G4586 June 1991
-Alias: cp863
-Alias: 863
-Alias: csIBM863
-
-Name: IBM864                                              [RFC1345,KXS2]
-MIBenum: 2051
-Source: IBM Keyboard layouts and code pages, PN 07G4586 June 1991
-Alias: cp864
-Alias: csIBM864
-
-Name: IBM865                                              [RFC1345,KXS2]
-MIBenum: 2052
-Source: IBM DOS 3.3 Ref (Abridged), 94X9575 (Feb 1987)
-Alias: cp865
-Alias: 865
-Alias: csIBM865
-
-Name: IBM868                                              [RFC1345,KXS2]
-MIBenum: 2053
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP868
-Alias: cp-ar
-Alias: csIBM868
-
-Name: IBM869                                              [RFC1345,KXS2]
-MIBenum: 2054
-Source: IBM Keyboard layouts and code pages, PN 07G4586 June 1991
-Alias: cp869
-Alias: 869
-Alias: cp-gr
-Alias: csIBM869
-
-Name: IBM870                                              [RFC1345,KXS2]
-MIBenum: 2055
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP870
-Alias: ebcdic-cp-roece
-Alias: ebcdic-cp-yu
-Alias: csIBM870
-
-Name: IBM871                                              [RFC1345,KXS2]
-MIBenum: 2056
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP871
-Alias: ebcdic-cp-is
-Alias: csIBM871
-
-Name: IBM880                                              [RFC1345,KXS2]
-MIBenum: 2057
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp880
-Alias: EBCDIC-Cyrillic
-Alias: csIBM880
-
-Name: IBM891                                              [RFC1345,KXS2]
-MIBenum: 2058
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp891
-Alias: csIBM891
-
-Name: IBM903                                              [RFC1345,KXS2]
-MIBenum: 2059
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp903
-Alias: csIBM903
-
-Name: IBM904                                              [RFC1345,KXS2]
-MIBenum: 2060
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: cp904
-Alias: 904
-Alias: csIBBM904
-
-Name: IBM905                                              [RFC1345,KXS2]
-MIBenum: 2061
-Source: IBM 3174 Character Set Ref, GA27-3831-02, March 1990
-Alias: CP905
-Alias: ebcdic-cp-tr
-Alias: csIBM905
-
-Name: IBM918                                              [RFC1345,KXS2]
-MIBenum: 2062
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP918
-Alias: ebcdic-cp-ar2
-Alias: csIBM918
-
-Name: IBM1026                                             [RFC1345,KXS2]
-MIBenum: 2063
-Source: IBM NLS RM Vol2 SE09-8002-01, March 1990
-Alias: CP1026
-Alias: csIBM1026
-
-Name: EBCDIC-AT-DE                                        [RFC1345,KXS2]
-MIBenum: 2064
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csIBMEBCDICATDE
-
-Name: EBCDIC-AT-DE-A                                      [RFC1345,KXS2]
-MIBenum: 2065 
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987 
-Alias: csEBCDICATDEA
-
-Name: EBCDIC-CA-FR                                        [RFC1345,KXS2]
-MIBenum: 2066
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICCAFR
-
-Name: EBCDIC-DK-NO                                        [RFC1345,KXS2]
-MIBenum: 2067
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICDKNO
-
-Name: EBCDIC-DK-NO-A                                      [RFC1345,KXS2]
-MIBenum: 2068
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICDKNOA
-
-Name: EBCDIC-FI-SE                                        [RFC1345,KXS2]
-MIBenum: 2069
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICFISE
-
-Name: EBCDIC-FI-SE-A                                      [RFC1345,KXS2]
-MIBenum: 2070
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICFISEA
-
-Name: EBCDIC-FR                                           [RFC1345,KXS2]
-MIBenum: 2071
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICFR
-
-Name: EBCDIC-IT                                           [RFC1345,KXS2]
-MIBenum: 2072
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICIT
-
-Name: EBCDIC-PT                                           [RFC1345,KXS2]
-MIBenum: 2073
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICPT
-
-Name: EBCDIC-ES                                           [RFC1345,KXS2]
-MIBenum: 2074
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICES
-
-Name: EBCDIC-ES-A                                         [RFC1345,KXS2]
-MIBenum: 2075
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICESA
-
-Name: EBCDIC-ES-S                                         [RFC1345,KXS2]
-MIBenum: 2076
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICESS
-
-Name: EBCDIC-UK                                           [RFC1345,KXS2]
-MIBenum: 2077
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICUK
-
-Name: EBCDIC-US                                           [RFC1345,KXS2]
-MIBenum: 2078
-Source: IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987
-Alias: csEBCDICUS
-
-Name: UNKNOWN-8BIT                                             [RFC1428]
-MIBenum: 2079
-Alias: csUnknown8BiT
-
-Name: MNEMONIC                                            [RFC1345,KXS2]
-MIBenum: 2080
-Source: RFC 1345, also known as "mnemonic+ascii+38"
-Alias: csMnemonic
-
-Name: MNEM                                                [RFC1345,KXS2]
-MIBenum: 2081
-Source: RFC 1345, also known as "mnemonic+ascii+8200"
-Alias: csMnem
-
-Name: VISCII                                                   [RFC1456]
-MIBenum: 2082
-Source: RFC 1456
-Alias: csVISCII
-
-Name: VIQR                                                     [RFC1456]
-MIBenum: 2083
-Source: RFC 1456
-Alias: csVIQR
-
-Name: KOI8-R  (preferred MIME name)                            [RFC1489]
-MIBenum: 2084
-Source: RFC 1489, based on GOST-19768-74, ISO-6937/8, 
-        INIS-Cyrillic, ISO-5427.
-Alias: csKOI8R
-
-Name: HZ-GB-2312
-MIBenum: 2085
-Source: RFC 1842, RFC 1843                                               [RFC1842, RFC1843]
-
-Name: IBM866                                                     [Pond]
-MIBenum: 2086
-Source: IBM NLDG Volume 2 (SE09-8002-03) August 1994
-Alias: cp866
-Alias: 866
-Alias: csIBM866
-
-Name: IBM775                                                   [HP-PCL5]
-MIBenum: 2087
-Source: HP PCL 5 Comparison Guide (P/N 5021-0329) pp B-13, 1996
-Alias: cp775
-Alias: csPC775Baltic
-
-Name: KOI8-U                                                   [RFC2319]
-MIBenum: 2088
-Source: RFC 2319
-
-Name: IBM00858
-MIBenum: 2089
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM00858)    [Mahdi]
-Alias: CCSID00858
-Alias: CP00858
-Alias: PC-Multilingual-850+euro
-
-Name: IBM00924
-MIBenum: 2090
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM00924)    [Mahdi]
-Alias: CCSID00924
-Alias: CP00924
-Alias: ebcdic-Latin9--euro
-
-Name: IBM01140
-MIBenum: 2091
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01140)    [Mahdi]
-Alias: CCSID01140
-Alias: CP01140
-Alias: ebcdic-us-37+euro
-
-Name: IBM01141
-MIBenum: 2092
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01141)    [Mahdi]
-Alias: CCSID01141
-Alias: CP01141
-Alias: ebcdic-de-273+euro
-
-Name: IBM01142
-MIBenum: 2093
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01142)    [Mahdi]
-Alias: CCSID01142
-Alias: CP01142
-Alias: ebcdic-dk-277+euro
-Alias: ebcdic-no-277+euro
-
-Name: IBM01143
-MIBenum: 2094
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01143)    [Mahdi]
-Alias: CCSID01143
-Alias: CP01143
-Alias: ebcdic-fi-278+euro
-Alias: ebcdic-se-278+euro
-
-Name: IBM01144
-MIBenum: 2095
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01144)    [Mahdi]
-Alias: CCSID01144
-Alias: CP01144
-Alias: ebcdic-it-280+euro
-
-Name: IBM01145
-MIBenum: 2096
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01145)    [Mahdi]
-Alias: CCSID01145
-Alias: CP01145
-Alias: ebcdic-es-284+euro
-
-Name: IBM01146
-MIBenum: 2097
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01146)    [Mahdi]
-Alias: CCSID01146
-Alias: CP01146
-Alias: ebcdic-gb-285+euro
-
-Name: IBM01147
-MIBenum: 2098
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01147)    [Mahdi]
-Alias: CCSID01147
-Alias: CP01147
-Alias: ebcdic-fr-297+euro
-
-Name: IBM01148
-MIBenum: 2099
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01148)    [Mahdi]
-Alias: CCSID01148
-Alias: CP01148
-Alias: ebcdic-international-500+euro
-
-Name: IBM01149
-MIBenum: 2100
-Source: IBM See (http://www.iana.org/assignments/charset-reg/IBM01149)    [Mahdi]
-Alias: CCSID01149
-Alias: CP01149
-Alias: ebcdic-is-871+euro
-
-Name: Big5-HKSCS                                                  [Yick]
-MIBenum: 2101
-Source:   See (http://www.iana.org/assignments/charset-reg/Big5-HKSCS) 
-Alias: None
-
-Name: IBM1047                                                [Robrigado]
-MIBenum: 2102
-Source: IBM1047 (EBCDIC Latin 1/Open Systems)
-http://www-1.ibm.com/servers/eserver/iseries/software/globalization/pdf/cp01047z.pdf
-Alias: IBM-1047
-
-Name: PTCP154                                                    [Uskov]
-MIBenum: 2103
-Source: See (http://www.iana.org/assignments/charset-reg/PTCP154)
-Alias: csPTCP154
-Alias: PT154
-Alias: CP154
-Alias: Cyrillic-Asian
-
-Name:  Amiga-1251
-MIBenum:  2104
-Source:  See (http://www.amiga.ultranet.ru/Amiga-1251.html)
-Alias:  Ami1251
-Alias:  Amiga1251
-Alias:  Ami-1251
-(Aliases are provided for historical reasons and should not be used)
-                                                              [Malyshev]
-															  
-Name:  KOI7-switched
-MIBenum:  2105
-Source:  See <http://www.iana.org/assignments/charset-reg/KOI7-switched>
-Aliases:  None
-
-Name: BRF
-MIBenum: 2106
-Source: See <http://www.iana.org/assignments/charset-reg/BRF>                    [Thibault]
-Alias: csBRF
-
-Name: TSCII
-MIBenum: 2107
-Source: See <http://www.iana.org/assignments/charset-reg/TSCII>           [Kalyanasundaram]
-Alias: csTSCII
-
-Name: windows-1250
-MIBenum: 2250
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1250) [Lazhintseva]
-Alias: None
-
-Name: windows-1251
-MIBenum: 2251
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1251) [Lazhintseva]
-Alias: None
-
-Name: windows-1252
-MIBenum: 2252
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1252)       [Wendt]
-Alias: None
-
-Name: windows-1253
-MIBenum: 2253
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1253) [Lazhintseva]
-Alias: None
-
-Name: windows-1254
-MIBenum: 2254
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1254) [Lazhintseva]
-Alias: None
-
-Name: windows-1255
-MIBenum: 2255
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1255) [Lazhintseva]
-Alias: None
-
-Name: windows-1256
-MIBenum: 2256
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1256) [Lazhintseva]
-Alias: None 
-
-Name: windows-1257
-MIBenum: 2257
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1257) [Lazhintseva]
-Alias: None
-
-Name: windows-1258
-MIBenum: 2258
-Source: Microsoft  (http://www.iana.org/assignments/charset-reg/windows-1258) [Lazhintseva]
-Alias: None
-
-Name: TIS-620
-MIBenum: 2259
-Source: Thai Industrial Standards Institute (TISI)                             [Tantsetthi]
-
-
-REFERENCES
-----------
-
-[RFC1345]  Simonsen, K., "Character Mnemonics & Character Sets",
-           RFC 1345, Rationel Almen Planlaegning, Rationel Almen
-           Planlaegning, June 1992.
-
-[RFC1428]  Vaudreuil, G., "Transition of Internet Mail from
-           Just-Send-8 to 8bit-SMTP/MIME", RFC1428, CNRI, February
-           1993.
-
-[RFC1456]  Vietnamese Standardization Working Group, "Conventions for
-           Encoding the Vietnamese Language VISCII: VIetnamese 
-           Standard Code for Information Interchange VIQR: VIetnamese 
-           Quoted-Readable Specification Revision 1.1", RFC 1456, May
-           1993.
-
-[RFC1468]  Murai, J., Crispin, M., and E. van der Poel, "Japanese
-           Character Encoding for Internet Messages", RFC 1468,
-           Keio University, Panda Programming, June 1993.
-
-[RFC1489]  Chernov, A., "Registration of a Cyrillic Character Set",
-           RFC1489, RELCOM Development Team, July 1993. 
-
-[RFC1554]  Ohta, M., and K. Handa, "ISO-2022-JP-2: Multilingual
-           Extension of ISO-2022-JP", RFC1554, Tokyo Institute of
-           Technology, ETL, December 1993. 
-
-[RFC1556]  Nussbacher, H., "Handling of Bi-directional Texts in MIME",
-           RFC1556, Israeli Inter-University, December 1993. 
-
-[RFC1557]  Choi, U., Chon, K., and H. Park, "Korean Character Encoding
-           for Internet Messages", KAIST, Solvit Chosun Media,
-           December 1993.
-
-[RFC1641]  Goldsmith, D., and M. Davis, "Using Unicode with MIME",
-           RFC1641, Taligent, Inc., July 1994. 
-
-[RFC1642]  Goldsmith, D., and M. Davis, "UTF-7", RFC1642, Taligent,
-           Inc., July 1994.
-
-[RFC1815]  Ohta, M., "Character Sets ISO-10646 and ISO-10646-J-1",
-           RFC 1815, Tokyo Institute of Technology, July 1995.
-
-
-[Adobe]    Adobe Systems Incorporated, PostScript Language Reference
-           Manual, second edition, Addison-Wesley Publishing Company,
-           Inc., 1990.
-
-[ECMA Registry]  ISO-IR: International Register of Escape Sequences
-           http://www.itscj.ipsj.or.jp/ISO-IE/  Note: The current
-           registration authority is IPSJ/ITSCJ, Japan.
-
-[HP-PCL5]  Hewlett-Packard Company, "HP PCL 5 Comparison Guide", 
-           (P/N 5021-0329) pp B-13, 1996.
-
-[IBM-CIDT] IBM Corporation, "ABOUT TYPE: IBM's Technical Reference
-           for Core Interchange Digitized Type", Publication number
-           S544-3708-01
-
-[RFC1842]  Wei, Y., J. Li, and Y. Jiang, "ASCII Printable
-           Characters-Based Chinese Character Encoding for Internet
-           Messages", RFC 1842, Harvard University, Rice University,
-           University of Maryland, August 1995.
-
-[RFC1843]  Lee, F., "HZ - A Data Format for Exchanging Files of
-           Arbitrarily Mixed Chinese and ASCII Characters", RFC 1843,
-           Stanford University, August 1995.
-
-[RFC2152]  Goldsmith, D., M. Davis, "UTF-7: A Mail-Safe Transformation
-	   Format of Unicode", RFC 2152, Apple Computer, Inc.,
-	   Taligent Inc., May 1997.
-
-[RFC2279]  Yergeau, F., "UTF-8, A Transformation Format of ISO 10646",
-           RFC 2279, Alis Technologies, January, 1998.
-
-[RFC2781]  Hoffman, P., Yergeau, F., "UTF-16, an encoding of ISO 10646",
-           RFC 2781, February 2000.
-
-[RFC3629]  Yergeau, F., "UTF-8, a transformation format of ISO 10646",
-           RFC3629, November 2003.
-
-PEOPLE
-------
-
-[KXS2] Keld Simonsen <Keld.Simonsen&dkuug.dk>
-
-[Choi] Woohyong Choi <whchoi&cosmos.kaist.ac.kr>
-
-[Davis] Mark Davis, <mark&unicode.org>, April 2002.
-
-[Kalyanasundaram] Kuppuswamy Kalyanasundaram, <kalyan.geo@yahoo. com>, 14 May 2007.
-
-[Kikkarin] Sairan M. Kikkarin, <sairan&sci.kz>, 7 December 2006.
-
-[Lazhintseva] Katya Lazhintseva, <katyal&MICROSOFT.com>, May 1996.
-
-[Mahdi] Tamer Mahdi, <tamer&ca.ibm.com>, August 2000.
-
-[Malyshev] Michael Malyshev, <michael_malyshev&mail.ru>, January 2004
-
-[Murai] Jun Murai <jun&wide.ad.jp>
-
-[Nussbacher] Hank Nussbacher, <hank&vm.tau.ac.il>
-
-[Ohta] Masataka Ohta, <mohta&cc.titech.ac.jp>, July 1995.
-
-[Phipps] Toby Phipps, <tphipps&peoplesoft.com>, March 2002.
-
-[Pond] Rick Pond, <rickpond&vnet.ibm.com>, March 1997.
-
-[Robrigado] Reuel Robrigado, <reuelr&ca.ibm.com>, September 2002.
-
-[Scherer] Markus Scherer, <markus.scherer&jtcsv.com>, August 2000, 
-          September 2002.
-
-[Simonsen] Keld Simonsen, <Keld.Simonsen&rap.dk>, August 2000.
-
-[Tantsetthi] Trin Tantsetthi, <trin&mozart.inet.co.th>, September 1998.
-
-[Thibault] Samuel Thibault, <samuel.thibault&ens-lyon.org>, 7 December 2006.
-
-[Tumasonis] Vladas Tumasonis, <vladas.tumasonis&maf.vu.lt>, August 2000.
-
-[Uskov] Alexander Uskov, <auskov&idc.kz>, September 2002.
-
-[Veremeev] Alexei Veremeev, <Alexey.Veremeev&oracle.com>, 7 December 2006.
-
-[Wendt] Chris Wendt, <christw&microsoft.com>, December 1999.
-
-[Yick] Nicky Yick, <cliac&itsd.gcn.gov.hk>, October 2000.
-
-[]
-
-
-
-
-
-
-
-EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
+revised character set from the original character set.</note>
+  <registry id="character-sets-1">
+    <record>
+      <name>US-ASCII</name>
+      <xref type="rfc" data="rfc2046"/>
+      <value>3</value>
+      <description>ANSI X3.4-1986</description>
+      <alias>iso-ir-6</alias>
+      <alias>ANSI_X3.4-1968</alias>
+      <alias>ANSI_X3.4-1986</alias>
+      <alias>ISO_646.irv:1991</alias>
+      <alias>ISO646-US</alias>
+      <alias>US-ASCII</alias>
+      <alias>us</alias>
+      <alias>IBM367</alias>
+      <alias>cp367</alias>
+      <alias>csASCII</alias>
+      <preferred_alias>US-ASCII</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-1:1987</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>4</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-100</alias>
+      <alias>ISO_8859-1</alias>
+      <alias>ISO-8859-1</alias>
+      <alias>latin1</alias>
+      <alias>l1</alias>
+      <alias>IBM819</alias>
+      <alias>CP819</alias>
+      <alias>csISOLatin1</alias>
+      <preferred_alias>ISO-8859-1</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-2:1987</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>5</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-101</alias>
+      <alias>ISO_8859-2</alias>
+      <alias>ISO-8859-2</alias>
+      <alias>latin2</alias>
+      <alias>l2</alias>
+      <alias>csISOLatin2</alias>
+      <preferred_alias>ISO-8859-2</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-3:1988</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>6</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-109</alias>
+      <alias>ISO_8859-3</alias>
+      <alias>ISO-8859-3</alias>
+      <alias>latin3</alias>
+      <alias>l3</alias>
+      <alias>csISOLatin3</alias>
+      <preferred_alias>ISO-8859-3</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-4:1988</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>7</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-110</alias>
+      <alias>ISO_8859-4</alias>
+      <alias>ISO-8859-4</alias>
+      <alias>latin4</alias>
+      <alias>l4</alias>
+      <alias>csISOLatin4</alias>
+      <preferred_alias>ISO-8859-4</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-5:1988</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>8</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-144</alias>
+      <alias>ISO_8859-5</alias>
+      <alias>ISO-8859-5</alias>
+      <alias>cyrillic</alias>
+      <alias>csISOLatinCyrillic</alias>
+      <preferred_alias>ISO-8859-5</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-6:1987</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>9</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-127</alias>
+      <alias>ISO_8859-6</alias>
+      <alias>ISO-8859-6</alias>
+      <alias>ECMA-114</alias>
+      <alias>ASMO-708</alias>
+      <alias>arabic</alias>
+      <alias>csISOLatinArabic</alias>
+      <preferred_alias>ISO-8859-6</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-7:1987</name>
+      <xref type="rfc" data="rfc1947"/>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>10</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-126</alias>
+      <alias>ISO_8859-7</alias>
+      <alias>ISO-8859-7</alias>
+      <alias>ELOT_928</alias>
+      <alias>ECMA-118</alias>
+      <alias>greek</alias>
+      <alias>greek8</alias>
+      <alias>csISOLatinGreek</alias>
+      <preferred_alias>ISO-8859-7</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-8:1988</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>11</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-138</alias>
+      <alias>ISO_8859-8</alias>
+      <alias>ISO-8859-8</alias>
+      <alias>hebrew</alias>
+      <alias>csISOLatinHebrew</alias>
+      <preferred_alias>ISO-8859-8</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-9:1989</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>12</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-148</alias>
+      <alias>ISO_8859-9</alias>
+      <alias>ISO-8859-9</alias>
+      <alias>latin5</alias>
+      <alias>l5</alias>
+      <alias>csISOLatin5</alias>
+      <preferred_alias>ISO-8859-9</preferred_alias>
+    </record>
+    <record>
+      <name>ISO-8859-10</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>13</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-157</alias>
+      <alias>l6</alias>
+      <alias>ISO_8859-10:1992</alias>
+      <alias>csISOLatin6</alias>
+      <alias>latin6</alias>
+      <preferred_alias>ISO-8859-10</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_6937-2-add</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>14</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref> and ISO 6937-2:1983<br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-142</alias>
+      <alias>csISOTextComm</alias>
+    </record>
+    <record>
+      <name>JIS_X0201</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>15</value>
+      <description>JIS X 0201-1976.   One byte only, this is equivalent to
+JIS/Roman (similar to ASCII) plus eight-bit half-width
+Katakana</description>
+      <alias>X0201</alias>
+      <alias>csHalfWidthKatakana</alias>
+    </record>
+    <record>
+      <name>JIS_Encoding</name>
+      <value>16</value>
+      <description>JIS X 0202-1991.  Uses ISO 2022 escape sequences to
+shift code sets as documented in JIS X 0202-1991.</description>
+      <alias>csJISEncoding</alias>
+    </record>
+    <record>
+      <name>Shift_JIS</name>
+      <value>17</value>
+      <description>This charset is an extension of csHalfWidthKatakana by
+adding graphic characters in JIS X 0208.  The CCS's are
+JIS X0201:1997 and JIS X0208:1997.  The
+complete definition is shown in Appendix 1 of JIS
+X0208:1997.
+This charset can be used for the top-level media type "text".</description>
+      <alias>MS_Kanji</alias>
+      <alias>csShiftJIS</alias>
+      <preferred_alias>Shift_JIS</preferred_alias>
+    </record>
+    <record>
+      <name>Extended_UNIX_Code_Packed_Format_for_Japanese</name>
+      <value>18</value>
+      <description>Standardized by OSF, UNIX International, and UNIX Systems
+Laboratories Pacific.  Uses ISO 2022 rules to select
+code set 0: US-ASCII (a single 7-bit byte set)
+code set 1: JIS X0208-1990 (a double 8-bit byte set)
+restricted to A0-FF in both bytes
+code set 2: Half Width Katakana (a single 7-bit byte set)
+requiring SS2 as the character prefix
+code set 3: JIS X0212-1990 (a double 7-bit byte set)
+restricted to A0-FF in both bytes
+requiring SS3 as the character prefix</description>
+      <alias>csEUCPkdFmtJapanese</alias>
+      <alias>EUC-JP</alias>
+      <preferred_alias>EUC-JP</preferred_alias>
+    </record>
+    <record>
+      <name>Extended_UNIX_Code_Fixed_Width_for_Japanese</name>
+      <value>19</value>
+      <description>Used in Japan.  Each character is 2 octets.
+code set 0: US-ASCII (a single 7-bit byte set)
+1st byte = 00
+2nd byte = 20-7E
+code set 1: JIS X0208-1990 (a double 7-bit byte set)
+restricted  to A0-FF in both bytes
+code set 2: Half Width Katakana (a single 7-bit byte set)
+1st byte = 00
+2nd byte = A0-FF
+code set 3: JIS X0212-1990 (a double 7-bit byte set)
+restricted to A0-FF in
+the first byte
+and 21-7E in the second byte</description>
+      <alias>csEUCFixWidJapanese</alias>
+    </record>
+    <record>
+      <name>BS_4730</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>20</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-4</alias>
+      <alias>ISO646-GB</alias>
+      <alias>gb</alias>
+      <alias>uk</alias>
+      <alias>csISO4UnitedKingdom</alias>
+    </record>
+    <record>
+      <name>SEN_850200_C</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>21</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-11</alias>
+      <alias>ISO646-SE2</alias>
+      <alias>se2</alias>
+      <alias>csISO11SwedishForNames</alias>
+    </record>
+    <record>
+      <name>IT</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>22</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-15</alias>
+      <alias>ISO646-IT</alias>
+      <alias>csISO15Italian</alias>
+    </record>
+    <record>
+      <name>ES</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>23</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-17</alias>
+      <alias>ISO646-ES</alias>
+      <alias>csISO17Spanish</alias>
+    </record>
+    <record>
+      <name>DIN_66003</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>24</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-21</alias>
+      <alias>de</alias>
+      <alias>ISO646-DE</alias>
+      <alias>csISO21German</alias>
+    </record>
+    <record>
+      <name>NS_4551-1</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>25</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-60</alias>
+      <alias>ISO646-NO</alias>
+      <alias>no</alias>
+      <alias>csISO60DanishNorwegian</alias>
+      <alias>csISO60Norwegian1</alias>
+    </record>
+    <record>
+      <name>NF_Z_62-010</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>26</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-69</alias>
+      <alias>ISO646-FR</alias>
+      <alias>fr</alias>
+      <alias>csISO69French</alias>
+    </record>
+    <record>
+      <name>ISO-10646-UTF-1</name>
+      <value>27</value>
+      <description>Universal Transfer Format (1), this is the multibyte
+encoding, that subsets ASCII-7. It does not have byte
+ordering issues.</description>
+      <alias>csISO10646UTF1</alias>
+    </record>
+    <record>
+      <name>ISO_646.basic:1983</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>28</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>ref</alias>
+      <alias>csISO646basic1983</alias>
+    </record>
+    <record>
+      <name>INVARIANT</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>29</value>
+      <alias>csINVARIANT</alias>
+    </record>
+    <record>
+      <name>ISO_646.irv:1983</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>30</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-2</alias>
+      <alias>irv</alias>
+      <alias>csISO2IntlRefVersion</alias>
+    </record>
+    <record>
+      <name>NATS-SEFI</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>31</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-8-1</alias>
+      <alias>csNATSSEFI</alias>
+    </record>
+    <record>
+      <name>NATS-SEFI-ADD</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>32</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-8-2</alias>
+      <alias>csNATSSEFIADD</alias>
+    </record>
+    <record>
+      <name>NATS-DANO</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>33</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-9-1</alias>
+      <alias>csNATSDANO</alias>
+    </record>
+    <record>
+      <name>NATS-DANO-ADD</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>34</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-9-2</alias>
+      <alias>csNATSDANOADD</alias>
+    </record>
+    <record>
+      <name>SEN_850200_B</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>35</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-10</alias>
+      <alias>FI</alias>
+      <alias>ISO646-FI</alias>
+      <alias>ISO646-SE</alias>
+      <alias>se</alias>
+      <alias>csISO10Swedish</alias>
+    </record>
+    <record>
+      <name>KS_C_5601-1987</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>36</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-149</alias>
+      <alias>KS_C_5601-1989</alias>
+      <alias>KSC_5601</alias>
+      <alias>korean</alias>
+      <alias>csKSC56011987</alias>
+    </record>
+    <record>
+      <name>ISO-2022-KR</name>
+      <xref type="rfc" data="rfc1557"/>
+      <xref type="person" data="Woohyong_Choi"/>
+      <value>37</value>
+      <description><xref type="rfc" data="rfc1557"/> (see also KS_C_5601-1987)</description>
+      <alias>csISO2022KR</alias>
+      <preferred_alias>ISO-2022-KR</preferred_alias>
+    </record>
+    <record>
+      <name>EUC-KR</name>
+      <xref type="rfc" data="rfc1557"/>
+      <xref type="person" data="Woohyong_Choi"/>
+      <value>38</value>
+      <description><xref type="rfc" data="rfc1557"/> (see also KS_C_5861-1992)</description>
+      <alias>csEUCKR</alias>
+      <preferred_alias>EUC-KR</preferred_alias>
+    </record>
+    <record>
+      <name>ISO-2022-JP</name>
+      <xref type="rfc" data="rfc1468"/>
+      <xref type="person" data="Jun_Murai"/>
+      <value>39</value>
+      <description><xref type="rfc" data="rfc1468"/> (see also <xref type="rfc" data="rfc2237"/>)</description>
+      <alias>csISO2022JP</alias>
+      <preferred_alias>ISO-2022-JP</preferred_alias>
+    </record>
+    <record date="1995-07">
+      <name>ISO-2022-JP-2</name>
+      <xref type="rfc" data="rfc1554"/>
+      <xref type="person" data="Masataka_Ohta"/>
+      <value>40</value>
+      <description>
+        <xref type="rfc" data="rfc1554"/>
+      </description>
+      <alias>csISO2022JP2</alias>
+      <preferred_alias>ISO-2022-JP-2</preferred_alias>
+    </record>
+    <record>
+      <name>JIS_C6220-1969-jp</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>41</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>JIS_C6220-1969</alias>
+      <alias>iso-ir-13</alias>
+      <alias>katakana</alias>
+      <alias>x0201-7</alias>
+      <alias>csISO13JISC6220jp</alias>
+    </record>
+    <record>
+      <name>JIS_C6220-1969-ro</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>42</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-14</alias>
+      <alias>jp</alias>
+      <alias>ISO646-JP</alias>
+      <alias>csISO14JISC6220ro</alias>
+    </record>
+    <record>
+      <name>PT</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>43</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-16</alias>
+      <alias>ISO646-PT</alias>
+      <alias>csISO16Portuguese</alias>
+    </record>
+    <record>
+      <name>greek7-old</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>44</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-18</alias>
+      <alias>csISO18Greek7Old</alias>
+    </record>
+    <record>
+      <name>latin-greek</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>45</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-19</alias>
+      <alias>csISO19LatinGreek</alias>
+    </record>
+    <record>
+      <name>NF_Z_62-010_(1973)</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>46</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-25</alias>
+      <alias>ISO646-FR1</alias>
+      <alias>csISO25French</alias>
+    </record>
+    <record>
+      <name>Latin-greek-1</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>47</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-27</alias>
+      <alias>csISO27LatinGreek1</alias>
+    </record>
+    <record>
+      <name>ISO_5427</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>48</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-37</alias>
+      <alias>csISO5427Cyrillic</alias>
+    </record>
+    <record>
+      <name>JIS_C6226-1978</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>49</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-42</alias>
+      <alias>csISO42JISC62261978</alias>
+    </record>
+    <record>
+      <name>BS_viewdata</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>50</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-47</alias>
+      <alias>csISO47BSViewdata</alias>
+    </record>
+    <record>
+      <name>INIS</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>51</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-49</alias>
+      <alias>csISO49INIS</alias>
+    </record>
+    <record>
+      <name>INIS-8</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>52</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-50</alias>
+      <alias>csISO50INIS8</alias>
+    </record>
+    <record>
+      <name>INIS-cyrillic</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>53</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-51</alias>
+      <alias>csISO51INISCyrillic</alias>
+    </record>
+    <record>
+      <name>ISO_5427:1981</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>54</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-54</alias>
+      <alias>ISO5427Cyrillic1981</alias>
+      <alias>csISO54271981</alias>
+    </record>
+    <record>
+      <name>ISO_5428:1980</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>55</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-55</alias>
+      <alias>csISO5428Greek</alias>
+    </record>
+    <record>
+      <name>GB_1988-80</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>56</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-57</alias>
+      <alias>cn</alias>
+      <alias>ISO646-CN</alias>
+      <alias>csISO57GB1988</alias>
+    </record>
+    <record>
+      <name>GB_2312-80</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>57</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-58</alias>
+      <alias>chinese</alias>
+      <alias>csISO58GB231280</alias>
+    </record>
+    <record>
+      <name>NS_4551-2</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>58</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>ISO646-NO2</alias>
+      <alias>iso-ir-61</alias>
+      <alias>no2</alias>
+      <alias>csISO61Norwegian2</alias>
+    </record>
+    <record>
+      <name>videotex-suppl</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>59</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-70</alias>
+      <alias>csISO70VideotexSupp1</alias>
+    </record>
+    <record>
+      <name>PT2</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>60</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-84</alias>
+      <alias>ISO646-PT2</alias>
+      <alias>csISO84Portuguese2</alias>
+    </record>
+    <record>
+      <name>ES2</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>61</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-85</alias>
+      <alias>ISO646-ES2</alias>
+      <alias>csISO85Spanish2</alias>
+    </record>
+    <record>
+      <name>MSZ_7795.3</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>62</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-86</alias>
+      <alias>ISO646-HU</alias>
+      <alias>hu</alias>
+      <alias>csISO86Hungarian</alias>
+    </record>
+    <record>
+      <name>JIS_C6226-1983</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>63</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-87</alias>
+      <alias>x0208</alias>
+      <alias>JIS_X0208-1983</alias>
+      <alias>csISO87JISX0208</alias>
+    </record>
+    <record>
+      <name>greek7</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>64</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-88</alias>
+      <alias>csISO88Greek7</alias>
+    </record>
+    <record>
+      <name>ASMO_449</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>65</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>ISO_9036</alias>
+      <alias>arabic7</alias>
+      <alias>iso-ir-89</alias>
+      <alias>csISO89ASMO449</alias>
+    </record>
+    <record>
+      <name>iso-ir-90</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>66</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>csISO90</alias>
+    </record>
+    <record>
+      <name>JIS_C6229-1984-a</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>67</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-91</alias>
+      <alias>jp-ocr-a</alias>
+      <alias>csISO91JISC62291984a</alias>
+    </record>
+    <record>
+      <name>JIS_C6229-1984-b</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>68</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-92</alias>
+      <alias>ISO646-JP-OCR-B</alias>
+      <alias>jp-ocr-b</alias>
+      <alias>csISO92JISC62991984b</alias>
+    </record>
+    <record>
+      <name>JIS_C6229-1984-b-add</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>69</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-93</alias>
+      <alias>jp-ocr-b-add</alias>
+      <alias>csISO93JIS62291984badd</alias>
+    </record>
+    <record>
+      <name>JIS_C6229-1984-hand</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>70</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-94</alias>
+      <alias>jp-ocr-hand</alias>
+      <alias>csISO94JIS62291984hand</alias>
+    </record>
+    <record>
+      <name>JIS_C6229-1984-hand-add</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>71</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-95</alias>
+      <alias>jp-ocr-hand-add</alias>
+      <alias>csISO95JIS62291984handadd</alias>
+    </record>
+    <record>
+      <name>JIS_C6229-1984-kana</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>72</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-96</alias>
+      <alias>csISO96JISC62291984kana</alias>
+    </record>
+    <record>
+      <name>ISO_2033-1983</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>73</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-98</alias>
+      <alias>e13b</alias>
+      <alias>csISO2033</alias>
+    </record>
+    <record>
+      <name>ANSI_X3.110-1983</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>74</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-99</alias>
+      <alias>CSA_T500-1983</alias>
+      <alias>NAPLPS</alias>
+      <alias>csISO99NAPLPS</alias>
+    </record>
+    <record>
+      <name>T.61-7bit</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>75</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-102</alias>
+      <alias>csISO102T617bit</alias>
+    </record>
+    <record>
+      <name>T.61-8bit</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>76</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>T.61</alias>
+      <alias>iso-ir-103</alias>
+      <alias>csISO103T618bit</alias>
+    </record>
+    <record>
+      <name>ECMA-cyrillic</name>
+      <value>77</value>
+      <description><xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/111.pdf">ISO registry</xref>
+        (formerly <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ECMA
+          registry</xref>)</description>
+      <alias>iso-ir-111</alias>
+      <alias>KOI8-E</alias>
+      <alias>csISO111ECMACyrillic</alias>
+    </record>
+    <record>
+      <name>CSA_Z243.4-1985-1</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>78</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-121</alias>
+      <alias>ISO646-CA</alias>
+      <alias>csa7-1</alias>
+      <alias>csa71</alias>
+      <alias>ca</alias>
+      <alias>csISO121Canadian1</alias>
+    </record>
+    <record>
+      <name>CSA_Z243.4-1985-2</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>79</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-122</alias>
+      <alias>ISO646-CA2</alias>
+      <alias>csa7-2</alias>
+      <alias>csa72</alias>
+      <alias>csISO122Canadian2</alias>
+    </record>
+    <record>
+      <name>CSA_Z243.4-1985-gr</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>80</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-123</alias>
+      <alias>csISO123CSAZ24341985gr</alias>
+    </record>
+    <record>
+      <name>ISO_8859-6-E</name>
+      <xref type="rfc" data="rfc1556"/>
+      <xref type="person" data="IANA"/>
+      <value>81</value>
+      <description>
+        <xref type="rfc" data="rfc1556"/>
+      </description>
+      <alias>csISO88596E</alias>
+      <alias>ISO-8859-6-E</alias>
+      <preferred_alias>ISO-8859-6-E</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-6-I</name>
+      <xref type="rfc" data="rfc1556"/>
+      <xref type="person" data="IANA"/>
+      <value>82</value>
+      <description>
+        <xref type="rfc" data="rfc1556"/>
+      </description>
+      <alias>csISO88596I</alias>
+      <alias>ISO-8859-6-I</alias>
+      <preferred_alias>ISO-8859-6-I</preferred_alias>
+    </record>
+    <record>
+      <name>T.101-G2</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>83</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-128</alias>
+      <alias>csISO128T101G2</alias>
+    </record>
+    <record>
+      <name>ISO_8859-8-E</name>
+      <xref type="rfc" data="rfc1556"/>
+      <xref type="person" data="Hank_Nussbacher"/>
+      <value>84</value>
+      <description>
+        <xref type="rfc" data="rfc1556"/>
+      </description>
+      <alias>csISO88598E</alias>
+      <alias>ISO-8859-8-E</alias>
+      <preferred_alias>ISO-8859-8-E</preferred_alias>
+    </record>
+    <record>
+      <name>ISO_8859-8-I</name>
+      <xref type="rfc" data="rfc1556"/>
+      <xref type="person" data="Hank_Nussbacher"/>
+      <value>85</value>
+      <description>
+        <xref type="rfc" data="rfc1556"/>
+      </description>
+      <alias>csISO88598I</alias>
+      <alias>ISO-8859-8-I</alias>
+      <preferred_alias>ISO-8859-8-I</preferred_alias>
+    </record>
+    <record>
+      <name>CSN_369103</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>86</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-139</alias>
+      <alias>csISO139CSN369103</alias>
+    </record>
+    <record>
+      <name>JUS_I.B1.002</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>87</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-141</alias>
+      <alias>ISO646-YU</alias>
+      <alias>js</alias>
+      <alias>yu</alias>
+      <alias>csISO141JUSIB1002</alias>
+    </record>
+    <record>
+      <name>IEC_P27-1</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>88</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-143</alias>
+      <alias>csISO143IECP271</alias>
+    </record>
+    <record>
+      <name>JUS_I.B1.003-serb</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>89</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-146</alias>
+      <alias>serbian</alias>
+      <alias>csISO146Serbian</alias>
+    </record>
+    <record>
+      <name>JUS_I.B1.003-mac</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>90</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>macedonian</alias>
+      <alias>iso-ir-147</alias>
+      <alias>csISO147Macedonian</alias>
+    </record>
+    <record>
+      <name>greek-ccitt</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>91</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-150</alias>
+      <alias>csISO150</alias>
+      <alias>csISO150GreekCCITT</alias>
+    </record>
+    <record>
+      <name>NC_NC00-10:81</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>92</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>cuba</alias>
+      <alias>iso-ir-151</alias>
+      <alias>ISO646-CU</alias>
+      <alias>csISO151Cuba</alias>
+    </record>
+    <record>
+      <name>ISO_6937-2-25</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>93</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-152</alias>
+      <alias>csISO6937Add</alias>
+    </record>
+    <record>
+      <name>GOST_19768-74</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>94</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>ST_SEV_358-88</alias>
+      <alias>iso-ir-153</alias>
+      <alias>csISO153GOST1976874</alias>
+    </record>
+    <record>
+      <name>ISO_8859-supp</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>95</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-154</alias>
+      <alias>latin1-2-5</alias>
+      <alias>csISO8859Supp</alias>
+    </record>
+    <record>
+      <name>ISO_10367-box</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>96</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>iso-ir-155</alias>
+      <alias>csISO10367Box</alias>
+    </record>
+    <record>
+      <name>latin-lap</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>97</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>lap</alias>
+      <alias>iso-ir-158</alias>
+      <alias>csISO158Lap</alias>
+    </record>
+    <record>
+      <name>JIS_X0212-1990</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>98</value>
+      <description>
+        <xref type="uri" data="http://www.itscj.ipsj.or.jp/ISO-IR/">ISO-IR: International Register of Escape Sequences</xref><br/>
+        Note: The current registration authority is IPSJ/ITSCJ, Japan.
+      </description>
+      <alias>x0212</alias>
+      <alias>iso-ir-159</alias>
+      <alias>csISO159JISX02121990</alias>
+    </record>
+    <record>
+      <name>DS_2089</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>99</value>
+      <description>Danish Standard, DS 2089, February 1974</description>
+      <alias>DS2089</alias>
+      <alias>ISO646-DK</alias>
+      <alias>dk</alias>
+      <alias>csISO646Danish</alias>
+    </record>
+    <record>
+      <name>us-dk</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>100</value>
+      <alias>csUSDK</alias>
+    </record>
+    <record>
+      <name>dk-us</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>101</value>
+      <alias>csDKUS</alias>
+    </record>
+    <record>
+      <name>KSC5636</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>102</value>
+      <alias>ISO646-KR</alias>
+      <alias>csKSC5636</alias>
+    </record>
+    <record>
+      <name>UNICODE-1-1-UTF-7</name>
+      <xref type="rfc" data="rfc1642"/>
+      <value>103</value>
+      <description>
+        <xref type="rfc" data="rfc1642"/>
+      </description>
+      <alias>csUnicode11UTF7</alias>
+    </record>
+    <record>
+      <name>ISO-2022-CN</name>
+      <xref type="rfc" data="rfc1922"/>
+      <value>104</value>
+      <description>
+        <xref type="rfc" data="rfc1922"/>
+      </description>
+      <alias>csISO2022CN</alias>
+    </record>
+    <record>
+      <name>ISO-2022-CN-EXT</name>
+      <xref type="rfc" data="rfc1922"/>
+      <value>105</value>
+      <description>
+        <xref type="rfc" data="rfc1922"/>
+      </description>
+      <alias>csISO2022CNEXT</alias>
+    </record>
+    <record>
+      <name>UTF-8</name>
+      <xref type="rfc" data="rfc3629"/>
+      <value>106</value>
+      <description>
+        <xref type="rfc" data="rfc3629"/>
+      </description>
+      <alias>csUTF8</alias>
+    </record>
+    <record date="2000-08">
+      <name>ISO-8859-13</name>
+      <value>109</value>
+      <description>ISO See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/ISO-8859-13"/><xref type="person" data="Vladas_Tumasonis"/></description>
+      <alias>csISO885913</alias>
+    </record>
+    <record date="2000-08">
+      <name>ISO-8859-14</name>
+      <value>110</value>
+      <description>ISO See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/ISO-8859-14"/> <xref type="person" data="Keld_Simonsen_2"/></description>
+      <alias>iso-ir-199</alias>
+      <alias>ISO_8859-14:1998</alias>
+      <alias>ISO_8859-14</alias>
+      <alias>latin8</alias>
+      <alias>iso-celtic</alias>
+      <alias>l8</alias>
+      <alias>csISO885914</alias>
+    </record>
+    <record>
+      <name>ISO-8859-15</name>
+      <value>111</value>
+      <description>ISO
+Please see: <xref type="uri" data="http://www.iana.org/assignments/charset-reg/ISO-8859-15"/></description>
+      <alias>ISO_8859-15</alias>
+      <alias>Latin-9</alias>
+      <alias>csISO885915</alias>
+    </record>
+    <record>
+      <name>ISO-8859-16</name>
+      <value>112</value>
+      <description>ISO</description>
+      <alias>iso-ir-226</alias>
+      <alias>ISO_8859-16:2001</alias>
+      <alias>ISO_8859-16</alias>
+      <alias>latin10</alias>
+      <alias>l10</alias>
+      <alias>csISO885916</alias>
+    </record>
+    <record>
+      <name>GBK</name>
+      <value>113</value>
+      <description>Chinese IT Standardization Technical Committee
+Please see: <xref type="uri" data="http://www.iana.org/assignments/charset-reg/GBK"/></description>
+      <alias>CP936</alias>
+      <alias>MS936</alias>
+      <alias>windows-936</alias>
+      <alias>csGBK</alias>
+    </record>
+    <record>
+      <name>GB18030</name>
+      <value>114</value>
+      <description>Chinese IT Standardization Technical Committee
+Please see: <xref type="uri" data="http://www.iana.org/assignments/charset-reg/GB18030"/></description>
+      <alias>csGB18030</alias>
+    </record>
+    <record>
+      <name>OSD_EBCDIC_DF04_15</name>
+      <value>115</value>
+      <description>Fujitsu-Siemens standard mainframe EBCDIC encoding
+Please see: <xref type="uri" data="http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF04-15"/></description>
+      <alias>csOSDEBCDICDF0415</alias>
+    </record>
+    <record>
+      <name>OSD_EBCDIC_DF03_IRV</name>
+      <value>116</value>
+      <description>Fujitsu-Siemens standard mainframe EBCDIC encoding
+Please see: <xref type="uri" data="http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF03-IRV"/></description>
+      <alias>csOSDEBCDICDF03IRV</alias>
+    </record>
+    <record>
+      <name>OSD_EBCDIC_DF04_1</name>
+      <value>117</value>
+      <description>Fujitsu-Siemens standard mainframe EBCDIC encoding
+Please see: <xref type="uri" data="http://www.iana.org/assignments/charset-reg/OSD-EBCDIC-DF04-1"/></description>
+      <alias>csOSDEBCDICDF041</alias>
+    </record>
+    <record date="2006-12-07">
+      <name>ISO-11548-1</name>
+      <value>118</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/ISO-11548-1"/>            <xref type="person" data="Samuel_Thibault"/></description>
+      <alias>ISO_11548-1</alias>
+      <alias>ISO_TR_11548-1</alias>
+      <alias>csISO115481</alias>
+    </record>
+    <record date="2006-12-07">
+      <name>KZ-1048</name>
+      <value>119</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/KZ-1048"/>      <xref type="person" data="Sairan_M_Kikkarin"/><xref type="person" data="Alexei_Veremeev"/></description>
+      <alias>STRK1048-2002</alias>
+      <alias>RK1048</alias>
+      <alias>csKZ1048</alias>
+    </record>
+    <record>
+      <name>ISO-10646-UCS-2</name>
+      <value>1000</value>
+      <description>the 2-octet Basic Multilingual Plane, aka Unicode
+this needs to specify network byte order: the standard
+does not specify (it is a 16-bit integer space)</description>
+      <alias>csUnicode</alias>
+    </record>
+    <record>
+      <name>ISO-10646-UCS-4</name>
+      <value>1001</value>
+      <description>the full code space. (same comment about byte order,
+these are 31-bit numbers.</description>
+      <alias>csUCS4</alias>
+    </record>
+    <record>
+      <name>ISO-10646-UCS-Basic</name>
+      <value>1002</value>
+      <description>ASCII subset of Unicode.  Basic Latin = collection 1
+See ISO 10646, Appendix A</description>
+      <alias>csUnicodeASCII</alias>
+    </record>
+    <record>
+      <name>ISO-10646-Unicode-Latin1</name>
+      <value>1003</value>
+      <description>ISO Latin-1 subset of Unicode. Basic Latin and Latin-1
+Supplement  = collections 1 and 2.  See ISO 10646,
+Appendix A.  See <xref type="rfc" data="rfc1815"/>.</description>
+      <alias>csUnicodeLatin1</alias>
+      <alias>ISO-10646</alias>
+    </record>
+    <record>
+      <name>ISO-10646-J-1</name>
+      <value>1004</value>
+      <description>ISO 10646 Japanese, see <xref type="rfc" data="rfc1815"/>.</description>
+      <alias>csUnicodeJapanese</alias>
+    </record>
+    <record>
+      <name>ISO-Unicode-IBM-1261</name>
+      <value>1005</value>
+      <description>IBM Latin-2, -3, -5, Extended Presentation Set, GCSGID: 1261</description>
+      <alias>csUnicodeIBM1261</alias>
+    </record>
+    <record>
+      <name>ISO-Unicode-IBM-1268</name>
+      <value>1006</value>
+      <description>IBM Latin-4 Extended Presentation Set, GCSGID: 1268</description>
+      <alias>csUnicodeIBM1268</alias>
+    </record>
+    <record>
+      <name>ISO-Unicode-IBM-1276</name>
+      <value>1007</value>
+      <description>IBM Cyrillic Greek Extended Presentation Set, GCSGID: 1276</description>
+      <alias>csUnicodeIBM1276</alias>
+    </record>
+    <record>
+      <name>ISO-Unicode-IBM-1264</name>
+      <value>1008</value>
+      <description>IBM Arabic Presentation Set, GCSGID: 1264</description>
+      <alias>csUnicodeIBM1264</alias>
+    </record>
+    <record>
+      <name>ISO-Unicode-IBM-1265</name>
+      <value>1009</value>
+      <description>IBM Hebrew Presentation Set, GCSGID: 1265</description>
+      <alias>csUnicodeIBM1265</alias>
+    </record>
+    <record>
+      <name>UNICODE-1-1</name>
+      <xref type="rfc" data="rfc1641"/>
+      <value>1010</value>
+      <description>
+        <xref type="rfc" data="rfc1641"/>
+      </description>
+      <alias>csUnicode11</alias>
+    </record>
+    <record date="2002-09">
+      <name>SCSU</name>
+      <value>1011</value>
+      <description>SCSU See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/SCSU"/>     <xref type="person" data="Markus_Scherer"/></description>
+      <alias>csSCSU</alias>
+    </record>
+    <record>
+      <name>UTF-7</name>
+      <xref type="rfc" data="rfc2152"/>
+      <value>1012</value>
+      <description>
+        <xref type="rfc" data="rfc2152"/>
+      </description>
+      <alias>csUTF7</alias>
+    </record>
+    <record>
+      <name>UTF-16BE</name>
+      <xref type="rfc" data="rfc2781"/>
+      <value>1013</value>
+      <description>
+        <xref type="rfc" data="rfc2781"/>
+      </description>
+      <alias>csUTF16BE</alias>
+    </record>
+    <record>
+      <name>UTF-16LE</name>
+      <xref type="rfc" data="rfc2781"/>
+      <value>1014</value>
+      <description>
+        <xref type="rfc" data="rfc2781"/>
+      </description>
+      <alias>csUTF16LE</alias>
+    </record>
+    <record>
+      <name>UTF-16</name>
+      <xref type="rfc" data="rfc2781"/>
+      <value>1015</value>
+      <description>
+        <xref type="rfc" data="rfc2781"/>
+      </description>
+      <alias>csUTF16</alias>
+    </record>
+    <record date="2002-03">
+      <name>CESU-8</name>
+      <xref type="person" data="Toby_Phipps"/>
+      <value>1016</value>
+      <description>
+        <xref type="uri" data="http://www.unicode.org/unicode/reports/tr26"/>
+      </description>
+      <alias>csCESU8</alias>
+      <alias>csCESU-8</alias>
+    </record>
+    <record date="2002-04">
+      <name>UTF-32</name>
+      <xref type="person" data="Mark_Davis"/>
+      <value>1017</value>
+      <description>
+        <xref type="uri" data="http://www.unicode.org/unicode/reports/tr19/"/>
+      </description>
+      <alias>csUTF32</alias>
+    </record>
+    <record date="2002-04">
+      <name>UTF-32BE</name>
+      <xref type="person" data="Mark_Davis"/>
+      <value>1018</value>
+      <description>
+        <xref type="uri" data="http://www.unicode.org/unicode/reports/tr19/"/>
+      </description>
+      <alias>csUTF32BE</alias>
+    </record>
+    <record date="2002-04">
+      <name>UTF-32LE</name>
+      <xref type="person" data="Mark_Davis"/>
+      <value>1019</value>
+      <description>
+        <xref type="uri" data="http://www.unicode.org/unicode/reports/tr19/"/>
+      </description>
+      <alias>csUTF32LE</alias>
+    </record>
+    <record date="2002-09">
+      <name>BOCU-1</name>
+      <xref type="person" data="Markus_Scherer"/>
+      <value>1020</value>
+      <description>
+        <xref type="uri" data="http://www.unicode.org/notes/tn6/"/>
+      </description>
+      <alias>csBOCU1</alias>
+      <alias>csBOCU-1</alias>
+    </record>
+    <record>
+      <name>ISO-8859-1-Windows-3.0-Latin-1</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2000</value>
+      <description>Extended ISO 8859-1 Latin-1 for Windows 3.0.
+PCL Symbol Set id: 9U</description>
+      <alias>csWindows30Latin1</alias>
+    </record>
+    <record>
+      <name>ISO-8859-1-Windows-3.1-Latin-1</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2001</value>
+      <description>Extended ISO 8859-1 Latin-1 for Windows 3.1.
+PCL Symbol Set id: 19U</description>
+      <alias>csWindows31Latin1</alias>
+    </record>
+    <record>
+      <name>ISO-8859-2-Windows-Latin-2</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2002</value>
+      <description>Extended ISO 8859-2.  Latin-2 for Windows 3.1.
+PCL Symbol Set id: 9E</description>
+      <alias>csWindows31Latin2</alias>
+    </record>
+    <record>
+      <name>ISO-8859-9-Windows-Latin-5</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2003</value>
+      <description>Extended ISO 8859-9.  Latin-5 for Windows 3.1
+PCL Symbol Set id: 5T</description>
+      <alias>csWindows31Latin5</alias>
+    </record>
+    <record>
+      <name>hp-roman8</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2004</value>
+      <description>LaserJet IIP Printer User's Manual,
+HP part no 33471-90901, Hewlet-Packard, June 1989.</description>
+      <alias>roman8</alias>
+      <alias>r8</alias>
+      <alias>csHPRoman8</alias>
+    </record>
+    <record>
+      <name>Adobe-Standard-Encoding</name>
+      <xref type="text">Adobe Systems Incorporated, PostScript Language Reference
+Manual, second edition, Addison-Wesley Publishing Company,
+Inc., 1990.</xref>
+      <value>2005</value>
+      <description>PostScript Language Reference Manual
+PCL Symbol Set id: 10J</description>
+      <alias>csAdobeStandardEncoding</alias>
+    </record>
+    <record>
+      <name>Ventura-US</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2006</value>
+      <description>Ventura US.  ASCII plus characters typically used in
+publishing, like pilcrow, copyright, registered, trade mark,
+section, dagger, and double dagger in the range A0 (hex)
+to FF (hex).
+PCL Symbol Set id: 14J</description>
+      <alias>csVenturaUS</alias>
+    </record>
+    <record>
+      <name>Ventura-International</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2007</value>
+      <description>Ventura International.  ASCII plus coded characters similar
+to Roman8.
+PCL Symbol Set id: 13J</description>
+      <alias>csVenturaInternational</alias>
+    </record>
+    <record>
+      <name>DEC-MCS</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2008</value>
+      <description>VAX/VMS User's Manual,
+Order Number: AI-Y517A-TE, April 1986.</description>
+      <alias>dec</alias>
+      <alias>csDECMCS</alias>
+    </record>
+    <record>
+      <name>IBM850</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2009</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp850</alias>
+      <alias>850</alias>
+      <alias>csPC850Multilingual</alias>
+    </record>
+    <record>
+      <name>PC8-Danish-Norwegian</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2012</value>
+      <description>PC Danish Norwegian
+8-bit PC set for Danish Norwegian
+PCL Symbol Set id: 11U</description>
+      <alias>csPC8DanishNorwegian</alias>
+    </record>
+    <record>
+      <name>IBM862</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2013</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp862</alias>
+      <alias>862</alias>
+      <alias>csPC862LatinHebrew</alias>
+    </record>
+    <record>
+      <name>PC8-Turkish</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2014</value>
+      <description>PC Latin Turkish.  PCL Symbol Set id: 9T</description>
+      <alias>csPC8Turkish</alias>
+    </record>
+    <record>
+      <name>IBM-Symbols</name>
+      <xref type="text">IBM Corporation, "ABOUT TYPE: IBM's Technical Reference
+for Core Interchange Digitized Type", Publication number
+S544-3708-01</xref>
+      <value>2015</value>
+      <description>Presentation Set, CPGID: 259</description>
+      <alias>csIBMSymbols</alias>
+    </record>
+    <record>
+      <name>IBM-Thai</name>
+      <xref type="text">IBM Corporation, "ABOUT TYPE: IBM's Technical Reference
+for Core Interchange Digitized Type", Publication number
+S544-3708-01</xref>
+      <value>2016</value>
+      <description>Presentation Set, CPGID: 838</description>
+      <alias>csIBMThai</alias>
+    </record>
+    <record>
+      <name>HP-Legal</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2017</value>
+      <description>PCL 5 Comparison Guide, Hewlett-Packard,
+HP part number 5961-0510, October 1992
+PCL Symbol Set id: 1U</description>
+      <alias>csHPLegal</alias>
+    </record>
+    <record>
+      <name>HP-Pi-font</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2018</value>
+      <description>PCL 5 Comparison Guide, Hewlett-Packard,
+HP part number 5961-0510, October 1992
+PCL Symbol Set id: 15U</description>
+      <alias>csHPPiFont</alias>
+    </record>
+    <record>
+      <name>HP-Math8</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2019</value>
+      <description>PCL 5 Comparison Guide, Hewlett-Packard,
+HP part number 5961-0510, October 1992
+PCL Symbol Set id: 8M</description>
+      <alias>csHPMath8</alias>
+    </record>
+    <record>
+      <name>Adobe-Symbol-Encoding</name>
+      <xref type="text">Adobe Systems Incorporated, PostScript Language Reference
+Manual, second edition, Addison-Wesley Publishing Company,
+Inc., 1990.</xref>
+      <value>2020</value>
+      <description>PostScript Language Reference Manual
+PCL Symbol Set id: 5M</description>
+      <alias>csHPPSMath</alias>
+    </record>
+    <record>
+      <name>HP-DeskTop</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2021</value>
+      <description>PCL 5 Comparison Guide, Hewlett-Packard,
+HP part number 5961-0510, October 1992
+PCL Symbol Set id: 7J</description>
+      <alias>csHPDesktop</alias>
+    </record>
+    <record>
+      <name>Ventura-Math</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2022</value>
+      <description>PCL 5 Comparison Guide, Hewlett-Packard,
+HP part number 5961-0510, October 1992
+PCL Symbol Set id: 6M</description>
+      <alias>csVenturaMath</alias>
+    </record>
+    <record>
+      <name>Microsoft-Publishing</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2023</value>
+      <description>PCL 5 Comparison Guide, Hewlett-Packard,
+HP part number 5961-0510, October 1992
+PCL Symbol Set id: 6J</description>
+      <alias>csMicrosoftPublishing</alias>
+    </record>
+    <record>
+      <name>Windows-31J</name>
+      <value>2024</value>
+      <description>Windows Japanese.  A further extension of Shift_JIS
+to include NEC special characters (Row 13), NEC
+selection of IBM extensions (Rows 89 to 92), and IBM
+extensions (Rows 115 to 119).  The CCS's are
+JIS X0201:1997, JIS X0208:1997, and these extensions.
+This charset can be used for the top-level media type "text",
+but it is of limited or specialized use (see <xref type="rfc" data="rfc2278"/>).
+PCL Symbol Set id: 19K</description>
+      <alias>csWindows31J</alias>
+    </record>
+    <record>
+      <name>GB2312</name>
+      <value>2025</value>
+      <description>Chinese for People's Republic of China (PRC) mixed one byte,
+two byte set:
+20-7E = one byte ASCII
+A1-FE = two byte PRC Kanji
+See GB 2312-80
+PCL Symbol Set Id: 18C</description>
+      <alias>csGB2312</alias>
+      <preferred_alias>GB2312</preferred_alias>
+    </record>
+    <record>
+      <name>Big5</name>
+      <value>2026</value>
+      <description>Chinese for Taiwan Multi-byte set.
+PCL Symbol Set Id: 18T</description>
+      <alias>csBig5</alias>
+      <preferred_alias>Big5</preferred_alias>
+    </record>
+    <record>
+      <name>macintosh</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2027</value>
+      <description>The Unicode Standard ver1.0, ISBN 0-201-56788-1, Oct 1991</description>
+      <alias>mac</alias>
+      <alias>csMacintosh</alias>
+    </record>
+    <record>
+      <name>IBM037</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2028</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp037</alias>
+      <alias>ebcdic-cp-us</alias>
+      <alias>ebcdic-cp-ca</alias>
+      <alias>ebcdic-cp-wt</alias>
+      <alias>ebcdic-cp-nl</alias>
+      <alias>csIBM037</alias>
+    </record>
+    <record>
+      <name>IBM038</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2029</value>
+      <description>IBM 3174 Character Set Ref, GA27-3831-02, March 1990</description>
+      <alias>EBCDIC-INT</alias>
+      <alias>cp038</alias>
+      <alias>csIBM038</alias>
+    </record>
+    <record>
+      <name>IBM273</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2030</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP273</alias>
+      <alias>csIBM273</alias>
+    </record>
+    <record>
+      <name>IBM274</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2031</value>
+      <description>IBM 3174 Character Set Ref, GA27-3831-02, March 1990</description>
+      <alias>EBCDIC-BE</alias>
+      <alias>CP274</alias>
+      <alias>csIBM274</alias>
+    </record>
+    <record>
+      <name>IBM275</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2032</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>EBCDIC-BR</alias>
+      <alias>cp275</alias>
+      <alias>csIBM275</alias>
+    </record>
+    <record>
+      <name>IBM277</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2033</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>EBCDIC-CP-DK</alias>
+      <alias>EBCDIC-CP-NO</alias>
+      <alias>csIBM277</alias>
+    </record>
+    <record>
+      <name>IBM278</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2034</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP278</alias>
+      <alias>ebcdic-cp-fi</alias>
+      <alias>ebcdic-cp-se</alias>
+      <alias>csIBM278</alias>
+    </record>
+    <record>
+      <name>IBM280</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2035</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP280</alias>
+      <alias>ebcdic-cp-it</alias>
+      <alias>csIBM280</alias>
+    </record>
+    <record>
+      <name>IBM281</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2036</value>
+      <description>IBM 3174 Character Set Ref, GA27-3831-02, March 1990</description>
+      <alias>EBCDIC-JP-E</alias>
+      <alias>cp281</alias>
+      <alias>csIBM281</alias>
+    </record>
+    <record>
+      <name>IBM284</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2037</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP284</alias>
+      <alias>ebcdic-cp-es</alias>
+      <alias>csIBM284</alias>
+    </record>
+    <record>
+      <name>IBM285</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2038</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP285</alias>
+      <alias>ebcdic-cp-gb</alias>
+      <alias>csIBM285</alias>
+    </record>
+    <record>
+      <name>IBM290</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2039</value>
+      <description>IBM 3174 Character Set Ref, GA27-3831-02, March 1990</description>
+      <alias>cp290</alias>
+      <alias>EBCDIC-JP-kana</alias>
+      <alias>csIBM290</alias>
+    </record>
+    <record>
+      <name>IBM297</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2040</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp297</alias>
+      <alias>ebcdic-cp-fr</alias>
+      <alias>csIBM297</alias>
+    </record>
+    <record>
+      <name>IBM420</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2041</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990,
+IBM NLS RM p 11-11</description>
+      <alias>cp420</alias>
+      <alias>ebcdic-cp-ar1</alias>
+      <alias>csIBM420</alias>
+    </record>
+    <record>
+      <name>IBM423</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2042</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp423</alias>
+      <alias>ebcdic-cp-gr</alias>
+      <alias>csIBM423</alias>
+    </record>
+    <record>
+      <name>IBM424</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2043</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp424</alias>
+      <alias>ebcdic-cp-he</alias>
+      <alias>csIBM424</alias>
+    </record>
+    <record>
+      <name>IBM437</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2011</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp437</alias>
+      <alias>437</alias>
+      <alias>csPC8CodePage437</alias>
+    </record>
+    <record>
+      <name>IBM500</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2044</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP500</alias>
+      <alias>ebcdic-cp-be</alias>
+      <alias>ebcdic-cp-ch</alias>
+      <alias>csIBM500</alias>
+    </record>
+    <record>
+      <name>IBM851</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2045</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp851</alias>
+      <alias>851</alias>
+      <alias>csIBM851</alias>
+    </record>
+    <record>
+      <name>IBM852</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2010</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp852</alias>
+      <alias>852</alias>
+      <alias>csPCp852</alias>
+    </record>
+    <record>
+      <name>IBM855</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2046</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp855</alias>
+      <alias>855</alias>
+      <alias>csIBM855</alias>
+    </record>
+    <record>
+      <name>IBM857</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2047</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp857</alias>
+      <alias>857</alias>
+      <alias>csIBM857</alias>
+    </record>
+    <record>
+      <name>IBM860</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2048</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp860</alias>
+      <alias>860</alias>
+      <alias>csIBM860</alias>
+    </record>
+    <record>
+      <name>IBM861</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2049</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp861</alias>
+      <alias>861</alias>
+      <alias>cp-is</alias>
+      <alias>csIBM861</alias>
+    </record>
+    <record>
+      <name>IBM863</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2050</value>
+      <description>IBM Keyboard layouts and code pages, PN 07G4586 June 1991</description>
+      <alias>cp863</alias>
+      <alias>863</alias>
+      <alias>csIBM863</alias>
+    </record>
+    <record>
+      <name>IBM864</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2051</value>
+      <description>IBM Keyboard layouts and code pages, PN 07G4586 June 1991</description>
+      <alias>cp864</alias>
+      <alias>csIBM864</alias>
+    </record>
+    <record>
+      <name>IBM865</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2052</value>
+      <description>IBM DOS 3.3 Ref (Abridged), 94X9575 (Feb 1987)</description>
+      <alias>cp865</alias>
+      <alias>865</alias>
+      <alias>csIBM865</alias>
+    </record>
+    <record>
+      <name>IBM868</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2053</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP868</alias>
+      <alias>cp-ar</alias>
+      <alias>csIBM868</alias>
+    </record>
+    <record>
+      <name>IBM869</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2054</value>
+      <description>IBM Keyboard layouts and code pages, PN 07G4586 June 1991</description>
+      <alias>cp869</alias>
+      <alias>869</alias>
+      <alias>cp-gr</alias>
+      <alias>csIBM869</alias>
+    </record>
+    <record>
+      <name>IBM870</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2055</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP870</alias>
+      <alias>ebcdic-cp-roece</alias>
+      <alias>ebcdic-cp-yu</alias>
+      <alias>csIBM870</alias>
+    </record>
+    <record>
+      <name>IBM871</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2056</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP871</alias>
+      <alias>ebcdic-cp-is</alias>
+      <alias>csIBM871</alias>
+    </record>
+    <record>
+      <name>IBM880</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2057</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp880</alias>
+      <alias>EBCDIC-Cyrillic</alias>
+      <alias>csIBM880</alias>
+    </record>
+    <record>
+      <name>IBM891</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2058</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp891</alias>
+      <alias>csIBM891</alias>
+    </record>
+    <record>
+      <name>IBM903</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2059</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp903</alias>
+      <alias>csIBM903</alias>
+    </record>
+    <record>
+      <name>IBM904</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2060</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>cp904</alias>
+      <alias>904</alias>
+      <alias>csIBBM904</alias>
+    </record>
+    <record>
+      <name>IBM905</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2061</value>
+      <description>IBM 3174 Character Set Ref, GA27-3831-02, March 1990</description>
+      <alias>CP905</alias>
+      <alias>ebcdic-cp-tr</alias>
+      <alias>csIBM905</alias>
+    </record>
+    <record>
+      <name>IBM918</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2062</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP918</alias>
+      <alias>ebcdic-cp-ar2</alias>
+      <alias>csIBM918</alias>
+    </record>
+    <record>
+      <name>IBM1026</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2063</value>
+      <description>IBM NLS RM Vol2 SE09-8002-01, March 1990</description>
+      <alias>CP1026</alias>
+      <alias>csIBM1026</alias>
+    </record>
+    <record>
+      <name>EBCDIC-AT-DE</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2064</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csIBMEBCDICATDE</alias>
+    </record>
+    <record>
+      <name>EBCDIC-AT-DE-A</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2065</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICATDEA</alias>
+    </record>
+    <record>
+      <name>EBCDIC-CA-FR</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2066</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICCAFR</alias>
+    </record>
+    <record>
+      <name>EBCDIC-DK-NO</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2067</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICDKNO</alias>
+    </record>
+    <record>
+      <name>EBCDIC-DK-NO-A</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2068</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICDKNOA</alias>
+    </record>
+    <record>
+      <name>EBCDIC-FI-SE</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2069</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICFISE</alias>
+    </record>
+    <record>
+      <name>EBCDIC-FI-SE-A</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2070</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICFISEA</alias>
+    </record>
+    <record>
+      <name>EBCDIC-FR</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2071</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICFR</alias>
+    </record>
+    <record>
+      <name>EBCDIC-IT</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2072</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICIT</alias>
+    </record>
+    <record>
+      <name>EBCDIC-PT</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2073</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICPT</alias>
+    </record>
+    <record>
+      <name>EBCDIC-ES</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2074</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICES</alias>
+    </record>
+    <record>
+      <name>EBCDIC-ES-A</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2075</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICESA</alias>
+    </record>
+    <record>
+      <name>EBCDIC-ES-S</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2076</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICESS</alias>
+    </record>
+    <record>
+      <name>EBCDIC-UK</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2077</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICUK</alias>
+    </record>
+    <record>
+      <name>EBCDIC-US</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2078</value>
+      <description>IBM 3270 Char Set Ref Ch 10, GA27-2837-9, April 1987</description>
+      <alias>csEBCDICUS</alias>
+    </record>
+    <record>
+      <name>UNKNOWN-8BIT</name>
+      <xref type="rfc" data="rfc1428"/>
+      <value>2079</value>
+      <alias>csUnknown8BiT</alias>
+    </record>
+    <record>
+      <name>MNEMONIC</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2080</value>
+      <description><xref type="rfc" data="rfc1345"/>, also known as "mnemonic+ascii+38"</description>
+      <alias>csMnemonic</alias>
+    </record>
+    <record>
+      <name>MNEM</name>
+      <xref type="rfc" data="rfc1345"/>
+      <xref type="person" data="Keld_Simonsen"/>
+      <value>2081</value>
+      <description><xref type="rfc" data="rfc1345"/>, also known as "mnemonic+ascii+8200"</description>
+      <alias>csMnem</alias>
+    </record>
+    <record>
+      <name>VISCII</name>
+      <xref type="rfc" data="rfc1456"/>
+      <value>2082</value>
+      <description>
+        <xref type="rfc" data="rfc1456"/>
+      </description>
+      <alias>csVISCII</alias>
+    </record>
+    <record>
+      <name>VIQR</name>
+      <xref type="rfc" data="rfc1456"/>
+      <value>2083</value>
+      <description>
+        <xref type="rfc" data="rfc1456"/>
+      </description>
+      <alias>csVIQR</alias>
+    </record>
+    <record>
+      <name>KOI8-R</name>
+      <xref type="rfc" data="rfc1489"/>
+      <value>2084</value>
+      <description><xref type="rfc" data="rfc1489"/>, based on GOST-19768-74, ISO-6937/8,
+INIS-Cyrillic, ISO-5427.</description>
+      <alias>csKOI8R</alias>
+      <preferred_alias>KOI8-R</preferred_alias>
+    </record>
+    <record>
+      <name>HZ-GB-2312</name>
+      <value>2085</value>
+      <description><xref type="rfc" data="rfc1842"/>, <xref type="rfc" data="rfc1843"/><xref type="rfc" data="rfc1843"/><xref type="rfc" data="rfc1842"/></description>
+    </record>
+    <record date="1997-03">
+      <name>IBM866</name>
+      <xref type="person" data="Rick_Pond"/>
+      <value>2086</value>
+      <description>IBM NLDG Volume 2 (SE09-8002-03) August 1994</description>
+      <alias>cp866</alias>
+      <alias>866</alias>
+      <alias>csIBM866</alias>
+    </record>
+    <record>
+      <name>IBM775</name>
+      <xref type="text">Hewlett-Packard Company, "HP PCL 5 Comparison Guide",
+(P/N 5021-0329) pp B-13, 1996.</xref>
+      <value>2087</value>
+      <description>HP PCL 5 Comparison Guide (P/N 5021-0329) pp B-13, 1996</description>
+      <alias>cp775</alias>
+      <alias>csPC775Baltic</alias>
+    </record>
+    <record>
+      <name>KOI8-U</name>
+      <xref type="rfc" data="rfc2319"/>
+      <value>2088</value>
+      <description>
+        <xref type="rfc" data="rfc2319"/>
+      </description>
+      <alias>csKOI8U</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM00858</name>
+      <value>2089</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM00858"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID00858</alias>
+      <alias>CP00858</alias>
+      <alias>PC-Multilingual-850+euro</alias>
+      <alias>csIBM00858</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM00924</name>
+      <value>2090</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM00924"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID00924</alias>
+      <alias>CP00924</alias>
+      <alias>ebcdic-Latin9--euro</alias>
+      <alias>csIBM00924</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01140</name>
+      <value>2091</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01140"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01140</alias>
+      <alias>CP01140</alias>
+      <alias>ebcdic-us-37+euro</alias>
+      <alias>csIBM01140</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01141</name>
+      <value>2092</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01141"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01141</alias>
+      <alias>CP01141</alias>
+      <alias>ebcdic-de-273+euro</alias>
+      <alias>csIBM01141</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01142</name>
+      <value>2093</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01142"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01142</alias>
+      <alias>CP01142</alias>
+      <alias>ebcdic-dk-277+euro</alias>
+      <alias>ebcdic-no-277+euro</alias>
+      <alias>csIBM01142</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01143</name>
+      <value>2094</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01143"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01143</alias>
+      <alias>CP01143</alias>
+      <alias>ebcdic-fi-278+euro</alias>
+      <alias>ebcdic-se-278+euro</alias>
+      <alias>csIBM01143</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01144</name>
+      <value>2095</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01144"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01144</alias>
+      <alias>CP01144</alias>
+      <alias>ebcdic-it-280+euro</alias>
+      <alias>csIBM01144</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01145</name>
+      <value>2096</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01145"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01145</alias>
+      <alias>CP01145</alias>
+      <alias>ebcdic-es-284+euro</alias>
+      <alias>csIBM01145</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01146</name>
+      <value>2097</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01146"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01146</alias>
+      <alias>CP01146</alias>
+      <alias>ebcdic-gb-285+euro</alias>
+      <alias>csIBM01146</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01147</name>
+      <value>2098</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01147"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01147</alias>
+      <alias>CP01147</alias>
+      <alias>ebcdic-fr-297+euro</alias>
+      <alias>csIBM01147</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01148</name>
+      <value>2099</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01148"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01148</alias>
+      <alias>CP01148</alias>
+      <alias>ebcdic-international-500+euro</alias>
+      <alias>csIBM01148</alias>
+    </record>
+    <record date="2000-08">
+      <name>IBM01149</name>
+      <value>2100</value>
+      <description>IBM See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/IBM01149"/>    <xref type="person" data="Tamer_Mahdi"/></description>
+      <alias>CCSID01149</alias>
+      <alias>CP01149</alias>
+      <alias>ebcdic-is-871+euro</alias>
+      <alias>csIBM01149</alias>
+    </record>
+    <record date="2000-10">
+      <name>Big5-HKSCS</name>
+      <xref type="person" data="Nicky_Yick"/>
+      <value>2101</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/Big5-HKSCS"/></description>
+      <alias>csBig5HKSCS</alias>
+    </record>
+    <record date="2002-09">
+      <name>IBM1047</name>
+      <xref type="person" data="Reuel_Robrigado"/>
+      <value>2102</value>
+      <description>IBM1047 (EBCDIC Latin 1/Open Systems)
+<xref type="uri" data="http://www-1.ibm.com/servers/eserver/iseries/software/globalization/pdf/cp01047z.pdf"/></description>
+      <alias>IBM-1047</alias>
+      <alias>csIBM1047</alias>
+    </record>
+    <record date="2002-09">
+      <name>PTCP154</name>
+      <xref type="person" data="Alexander_Uskov"/>
+      <value>2103</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/PTCP154"/></description>
+      <alias>csPTCP154</alias>
+      <alias>PT154</alias>
+      <alias>CP154</alias>
+      <alias>Cyrillic-Asian</alias>
+      <alias>csPTCP154</alias>
+    </record>
+    <record>
+      <name>Amiga-1251</name>
+      <value>2104</value>
+      <description>See <xref type="uri" data="http://www.amiga.ultranet.ru/Amiga-1251.html"/></description>
+      <alias>Ami1251</alias>
+      <alias>Amiga1251</alias>
+      <alias>Ami-1251</alias>
+      <alias>csAmiga1251
+(Aliases are provided for historical reasons and should not be used) [Malyshev]</alias>
+    </record>
+    <record>
+      <name>KOI7-switched</name>
+      <value>2105</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/KOI7-switched"/></description>
+      <alias>csKOI7switched</alias>
+    </record>
+    <record date="2006-12-07">
+      <name>BRF</name>
+      <value>2106</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/BRF"/>                    <xref type="person" data="Samuel_Thibault"/></description>
+      <alias>csBRF</alias>
+    </record>
+    <record date="2007-05-14">
+      <name>TSCII</name>
+      <value>2107</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/TSCII"/>           <xref type="person" data="Kuppuswamy_Kalyanasu"/></description>
+      <alias>csTSCII</alias>
+    </record>
+    <record date="2011-09-23">
+      <name>CP51932</name>
+      <value>2108</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/CP51932"/>                  <xref type="person" data="Yui_Naruse"/></description>
+      <alias>csCP51932</alias>
+    </record>
+    <record date="2010-11-04">
+      <name>windows-874</name>
+      <value>2109</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-874"/>              <xref type="person" data="Shawn_Steele"/></description>
+      <alias>cswindows874</alias>
+    </record>
+    <record date="1996-05">
+      <name>windows-1250</name>
+      <value>2250</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1250"/> <xref type="person" data="Katya_Lazhintseva"/></description>
+      <alias>cswindows1250</alias>
+    </record>
+    <record date="1996-05">
+      <name>windows-1251</name>
+      <value>2251</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1251"/> <xref type="person" data="Katya_Lazhintseva"/></description>
+      <alias>cswindows1251</alias>
+    </record>
+    <record date="1999-12">
+      <name>windows-1252</name>
+      <value>2252</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1252"/>       <xref type="person" data="Chris_Wendt"/></description>
+      <alias>cswindows1252</alias>
+    </record>
+    <record date="1996-05">
+      <name>windows-1253</name>
+      <value>2253</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1253"/> <xref type="person" data="Katya_Lazhintseva"/></description>
+      <alias>cswindows1253</alias>
+    </record>
+    <record date="1996-05">
+      <name>windows-1254</name>
+      <value>2254</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1254"/> <xref type="person" data="Katya_Lazhintseva"/></description>
+      <alias>cswindows1254</alias>
+    </record>
+    <record date="1996-05">
+      <name>windows-1255</name>
+      <value>2255</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1255"/> <xref type="person" data="Katya_Lazhintseva"/></description>
+      <alias>cswindows1255</alias>
+    </record>
+    <record date="1996-05">
+      <name>windows-1256</name>
+      <value>2256</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1256"/> <xref type="person" data="Katya_Lazhintseva"/></description>
+      <alias>cswindows1256</alias>
+    </record>
+    <record date="1996-05">
+      <name>windows-1257</name>
+      <value>2257</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1257"/> <xref type="person" data="Katya_Lazhintseva"/></description>
+      <alias>cswindows1257</alias>
+    </record>
+    <record date="1996-05">
+      <name>windows-1258</name>
+      <value>2258</value>
+      <description>Microsoft  <xref type="uri" data="http://www.iana.org/assignments/charset-reg/windows-1258"/> <xref type="person" data="Katya_Lazhintseva"/></description>
+      <alias>cswindows1258</alias>
+    </record>
+    <record date="1998-09">
+      <name>TIS-620</name>
+      <value>2259</value>
+      <description>Thai Industrial Standards Institute (TISI)                             <xref type="person" data="Trin_Tantsetthi"/></description>
+      <alias>csTIS620</alias>
+      <alias>ISO-8859-11</alias>
+    </record>
+    <record date="2011-09-23">
+      <name>CP50220</name>
+      <value>2260</value>
+      <description>See <xref type="uri" data="http://www.iana.org/assignments/charset-reg/CP50220"/>                  <xref type="person" data="Yui_Naruse"/></description>
+      <alias>csCP50220</alias>
+    </record>
+  </registry>
+  <people>
+    <person id="Alexander_Uskov">
+      <name>Alexander Uskov</name>
+      <uri>mailto:auskov&amp;idc.kz</uri>
+      <updated>2002-09</updated>
+    </person>
+    <person id="Alexei_Veremeev">
+      <name>Alexei Veremeev</name>
+      <uri>mailto:Alexey.Veremeev&amp;oracle.com</uri>
+      <updated>2006-12-07</updated>
+    </person>
+    <person id="Chris_Wendt">
+      <name>Chris Wendt</name>
+      <uri>mailto:christw&amp;microsoft.com</uri>
+      <updated>1999-12</updated>
+    </person>
+    <person id="Hank_Nussbacher">
+      <name>Hank Nussbacher</name>
+      <uri>mailto:hank&amp;vm.tau.ac.il</uri>
+    </person>
+    <person id="IANA">
+      <name>Internet Assigned Numbers Authority</name>
+      <uri>mailto:iana&amp;iana.org</uri>
+    </person>
+    <person id="Jun_Murai">
+      <name>Jun Murai</name>
+      <uri>mailto:jun&amp;wide.ad.jp</uri>
+    </person>
+    <person id="Katya_Lazhintseva">
+      <name>Katya Lazhintseva</name>
+      <uri>mailto:katyal&amp;microsoft.com</uri>
+      <updated>1996-05</updated>
+    </person>
+    <person id="Keld_Simonsen">
+      <name>Keld Simonsen</name>
+      <uri>mailto:Keld.Simonsen&amp;dkuug.dk</uri>
+    </person>
+    <person id="Keld_Simonsen_2">
+      <name>Keld Simonsen</name>
+      <uri>mailto:Keld.Simonsen&amp;rap.dk</uri>
+      <updated>2000-08</updated>
+    </person>
+    <person id="Kuppuswamy_Kalyanasu">
+      <name>Kuppuswamy Kalyanasundaram</name>
+      <uri>mailto:kalyan.geo&amp;yahoo.com</uri>
+      <updated>2007-05-14</updated>
+    </person>
+    <person id="Mark_Davis">
+      <name>Mark Davis</name>
+      <uri>mailto:mark&amp;unicode.org</uri>
+      <updated>2002-04</updated>
+    </person>
+    <person id="Markus_Scherer">
+      <name>Markus Scherer</name>
+      <uri>mailto:markus.scherer&amp;jtcsv.com</uri>
+      <updated>2002-09</updated>
+    </person>
+    <person id="Masataka_Ohta">
+      <name>Masataka Ohta</name>
+      <uri>mailto:mohta&amp;cc.titech.ac.jp</uri>
+      <updated>1995-07</updated>
+    </person>
+    <person id="Nicky_Yick">
+      <name>Nicky Yick</name>
+      <uri>mailto:cliac&amp;itsd.gcn.gov.hk</uri>
+      <updated>2000-10</updated>
+    </person>
+    <person id="Reuel_Robrigado">
+      <name>Reuel Robrigado</name>
+      <uri>mailto:reuelr&amp;ca.ibm.com</uri>
+      <updated>2002-09</updated>
+    </person>
+    <person id="Rick_Pond">
+      <name>Rick Pond</name>
+      <uri>mailto:rickpond&amp;vnet.ibm.com</uri>
+      <updated>1997-03</updated>
+    </person>
+    <person id="Sairan_M_Kikkarin">
+      <name>Sairan M. Kikkarin</name>
+      <uri>mailto:sairan&amp;sci.kz</uri>
+      <updated>2006-12-07</updated>
+    </person>
+    <person id="Samuel_Thibault">
+      <name>Samuel Thibault</name>
+      <uri>mailto:samuel.thibault&amp;ens-lyon.org</uri>
+      <updated>2006-12-07</updated>
+    </person>
+    <person id="Shawn_Steele">
+      <name>Shawn Steele</name>
+      <uri>mailto:Shawn.Steele&amp;microsoft.com</uri>
+      <updated>2010-11-04</updated>
+    </person>
+    <person id="Tamer_Mahdi">
+      <name>Tamer Mahdi</name>
+      <uri>mailto:tamer&amp;ca.ibm.com</uri>
+      <updated>2000-08</updated>
+    </person>
+    <person id="Toby_Phipps">
+      <name>Toby Phipps</name>
+      <uri>mailto:tphipps&amp;peoplesoft.com</uri>
+      <updated>2002-03</updated>
+    </person>
+    <person id="Trin_Tantsetthi">
+      <name>Trin Tantsetthi</name>
+      <uri>mailto:trin&amp;mozart.inet.co.th</uri>
+      <updated>1998-09</updated>
+    </person>
+    <person id="Vladas_Tumasonis">
+      <name>Vladas Tumasonis</name>
+      <uri>mailto:vladas.tumasonis&amp;maf.vu.lt</uri>
+      <updated>2000-08</updated>
+    </person>
+    <person id="Woohyong_Choi">
+      <name>Woohyong Choi</name>
+      <uri>mailto:whchoi&amp;cosmos.kaist.ac.kr</uri>
+    </person>
+    <person id="Yui_Naruse">
+      <name>Yui Naruse</name>
+      <uri>mailto:naruse&amp;airemix.jp</uri>
+      <updated>2011-09-23</updated>
+    </person>
+  </people>
+</registry>
+EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
   } # _init_data
 
 1;

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/bug1.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/bug1.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/enco.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/enco.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/iana.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/iana.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/libi.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/libi.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/map8.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/map8.t
old mode 100755
new mode 100644

@@ -1,4 +1,4 @@
-# $Revision: 1.4 $
+# $Revision: 1.5 $
 # mib.t - Tests for converting mib numbers back to charset names
 
 use Test::More tests => 25;
@@ -9,44 +9,40 @@ BEGIN { use_ok('I18N::Charset') };
 #================================================
 
 #---- selection of examples which should all result in undef -----------
-ok(!defined mib_charset_name());         # no argument
-ok(!defined mib_charset_name(undef));    # undef argument
-ok(!defined mib_charset_name(""));       # empty argument
-ok(!defined mib_charset_name("junk"));   # illegal code
-ok(!defined mib_charset_name(9999999));  # illegal code
-ok(!defined mib_charset_name("None"));   # "None" appears as an Alias
-                                         # in the data but should be
-                                         # ignored
+ok(!defined mib_charset_name(), q{no argument});
+ok(!defined mib_charset_name(undef), q{undef argument});
+ok(!defined mib_charset_name(""), q{empty argument});
+ok(!defined mib_charset_name("junk"), q{illegal code});
+ok(!defined mib_charset_name(9999999), q{illegal code});
+ok(!defined mib_charset_name("None"), q{"None" is ignored});
 my @aa;
-ok(!defined mib_charset_name(\@aa));     # illegal argument
+ok(!defined mib_charset_name(\@aa), q{illegal argument});
 
 # The same things, in the opposite direction:
-ok(!defined charset_name_to_mib());         # no argument
-ok(!defined charset_name_to_mib(undef));    # undef argument
-ok(!defined charset_name_to_mib(""));       # empty argument
-ok(!defined charset_name_to_mib("junk"));   # illegal code
-ok(!defined charset_name_to_mib(9999999));  # illegal code
-ok(!defined charset_name_to_mib("None")); # "None" appears as an
-                                            # Alias in the data but
-                                            # should be ignored
-ok(!defined charset_name_to_mib(\@aa));     # illegal argument
+ok(!defined charset_name_to_mib(), q{no argument});
+ok(!defined charset_name_to_mib(undef), q{undef argument});
+ok(!defined charset_name_to_mib(""), q{empty argument});
+ok(!defined charset_name_to_mib("junk"), q{illegal code});
+ok(!defined charset_name_to_mib(9999999), q{illegal code});
+ok(!defined charset_name_to_mib("None"), q{"None" is ignored});
+ok(!defined charset_name_to_mib(\@aa), q{illegal argument});
 
  #---- some successful examples -----------------------------------------
-ok(mib_charset_name("3") eq "ANSI_X3.4-1968");
-ok(mib_charset_name("106") eq "UTF-8");
-ok(mib_to_charset_name("1015") eq "UTF-16");
-ok(mib_to_charset_name("17") eq "Shift_JIS");
+ok(mib_charset_name("3") eq "US-ASCII", q{3 is US-ASCII});
+ok(mib_charset_name("106") eq "UTF-8", q{106 is UTF-8});
+ok(mib_to_charset_name("1015") eq "UTF-16", q{1015 is UTF-16});
+ok(mib_to_charset_name("17") eq "Shift_JIS", q{17 is Shift_JIS});
 
 # The same things, in the opposite direction:
-ok(charset_name_to_mib("ecma cyrillic") eq '77');
-ok(charset_name_to_mib("UTF-8") == 106);
-ok(charset_name_to_mib("UTF-16") == 1015);
-ok(charset_name_to_mib('s h i f t j i s') eq '17');
+ok(charset_name_to_mib("ecma cyrillic") eq '77', q{ecma cyr is 77});
+ok(charset_name_to_mib("UTF-8") == 106, q{UTF-8 is 106});
+ok(charset_name_to_mib("UTF-16") == 1015, q{UTF-16 is 1015});
+ok(charset_name_to_mib('s h i f t j i s') eq '17', q{s h i f t is 17});
 
 # This is the FIRST entry in the IANA list:
-ok(charset_name_to_mib("ANSI_X3.4-1968") eq '3');
+ok(charset_name_to_mib("ANSI_X3.4-1968") eq '3', q{first entry});
 # This is the LAST entry in the IANA list:
-ok(charset_name_to_mib('hz gb 2312') == 2085);
+ok(charset_name_to_mib('CP50220') == 2260, q{last entry});
 
 exit 0;
 

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/mime.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/mime.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/pod-coverage.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/pod-coverage.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/pod.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/pod.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/rt33087.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/rt33087.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/umap.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/umap.t
old mode 100755
new mode 100644

diff --git a/var/tmp/source/MTHURN/I18N-Charset-1.394/I18N-Charset-1.394/t/utf8.t b/var/tmp/source/MTHURN/I18N-Charset-1.412/I18N-Charset-1.412/t/utf8.t
old mode 100755
new mode 100644